Нужно написание программы в "pascal"

Question

Нужно написание программы в "pascal"

fantafunky Знаток (387), на голосовании 11 лет назад

Дополнен 11 лет назад

Условия:
1. Найти максимальное число среди чисел, введенных с клавиатуры. Признак конца ввода - 0. Вывести количество введенных чисел.

2. С помощью цикла While написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

Answer 1

Первая
n:=1;
while (chislo<>0) do
begin
readln(chislo);
if n=1 rhen max:=chislo; inc(n);
if chislo>max then max:=chislo;
end;
writeln(chislo);

Вторая
n:=1; sum:=0;
while n<=99 do if n mod 2 <>0 sum:=sum+n;
writeln(n);