Регистрация
ankaschamina20
10.09.2021 16:18
Информатика
Есть ответ 👍

Pascal.abc 1: пользователь вводит 10 чисел. создать счетчики, и подсчитать сколько чисел положительные, отрицательные, равные нулю. 2: пользователь вводит число n. вывести сумму первых n целых чисел.

230
492
Посмотреть ответы 1

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

Sterl
Sterl
4,6(12 оценок)
Var       x, y, z, d: real; function min(a, b: real): real; begin       if a < b then               min : = a       else min : = b; end; function max(a, b: real): real; begin       if a > b then               max : = a       else max : = b; end; begin       readln(x, y, z, d);       writeln(max(min(x, y), max(min(x, z), min(z, ; end.

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