Регистрация
1207malinap0c23p
27.10.2021 11:13
Информатика
Есть ответ 👍

Написать решение Программ в ПАСКАЛЕ
1. Дан круг радиуса R. Если радиус больше 10, найти площадь круга, иначе вывести радиус без изменений.
2. Даны координаты двух точек на числовом луче. Сравните значение координат и выведете сообщение о том какая точка дальше от 0.

142
271
Посмотреть ответы 1

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

Alexal16
Alexal16
4,8(27 оценок)
Var   a: array[1..1000] of real;   i, k, n, z: integer; begin   writeln('введите число n: ');   readln(n);   writeln('введите число z: ');   readln(z);   writeln('введите ',n,' действительных чисел (каждое с новой строки): ');   for i : = 1 to n do   begin     readln(a[i]);     if a[i] > z then     begin       a[i] : = z;       k : = k + 1;     end;   end;   writeln('количество замен: ', k); end.

Популярно: Информатика