Урок 11 задача 6
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить. В первом витке цикла все "предыдущие" числа можно считать единицами.
program U11z6; var a,b,c: integer; //a - предпредыдущее число //b - предыдущее число //c - третье вводимое число begin a:=1; while (a<15) do begin if (a>15) then writeln('end cikl'); b:=a; c:=b; writeln('Vvedite cislo'); readln(a); if (c mod 2) = 0 then write('c', '+', 'a = ', (c + a)) else writeln('Vvedite new cislo'); readln(a); end; readln(); end.
- Log in to post comments
- 2304 reads
vedro-compota
Thu, 07/15/2021 - 20:25
Permalink
b:=a;
то же самое что:
ожидается ли такое поведение?
_____________
матфак вгу и остальная классика =)
nglag
Thu, 07/22/2021 - 10:56
Permalink
Новое решение:
.
vedro-compota
Thu, 07/22/2021 - 20:21
Permalink
проверить на соответствие
проверить на соответствие условию:
_____________
матфак вгу и остальная классика =)
nglag
Fri, 07/23/2021 - 10:31
Permalink
Ошибку в соответствии с условием исправил: