Дан радиус окружности. Найти ее диаметр. (записать программу в Pascal ABC) .
P.S. Заранее спасибо!
Как сказал кто-то, действительно мощно:D
var
r,d:integer;
begin
writeln(введи значение радиуса ,r);
readln(r);
d:=r*2;
writeln(диаметр ,d);
end.
Оцени ответ
