Впоследовательности чисел найти сумму нечетных, кратных 3. признак конца ввода ноль.(паскаль с циклом while) нужна

103

238

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

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

AlexCairon5

Информатика

4,5(78 оценок)

Program pr; uses crt; var chislo, sum: integer; begin writeln('введите число'); readln(chislo); sum: =0; while chislo< > 0 do begin if (chislo mod 2< > 0) and (chislo mod 3=0) then sum: =sum+chislo; writeln('введите число'); readln(chislo); end; writeln('сумма = ', sum); readln(); end.