Дан радиус окружности. Найти ее диаметр. (записать программу в Pascal ABC) . P.S. Заранее...

Question

Дан радиус окружности. Найти ее диаметр. (записать программу в Pascal ABC) .
P.S. Заранее спасибо!

Comments

Программу умножения введенного числа на 2? Мощно...

Answer 1

Как сказал кто-то, действительно мощно:D
var
r,d:integer;
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.