Максимальный напишите верно,3. запустите интегрированную среду программирования. составьте программный код для : «дан радиус круга r=2, определите диаметр окружности».

190

353

Посмотреть ответы 2

Ответы на вопрос:

Yournick

Информатика

4,4(45 оценок)

var

r : real;

d : real;

begin

write('введите радиус окружности r=');

readln(r);

d : = 2*r;

writeln('диаметр равен d=2r=', d);

end.

БлинчикТян

Информатика

4,8(24 оценок)

Var a: array [1..20] of integer; i: integer; begin for i : = 1 to 20 do readln(a[i]); for i : = 1 to 20 do if (a[i] < > a[1]) then begin writeln('неверно'); exit; end; writeln('верно'); end.надеюсь, я правильно понял , а то иногда не тут вначале надо 20 чисел ввести, а потом она проверяет, верно ли, что они все равны)