Задача 10 Урок 11 While
Primary tabs
{Пользователь вводит целые числа в цикле(разные: четные, нечетные,
положительные, отрицательные в любом порядке и количестве).
Сохраните в переменные первые три отрицательных нечетных числа,
сложите их, выведите сумму на экран и завершите цикл.}
var a,b,c,d: integer; begin a:=1; b:=1; c:=1; d:=1; // переключатель для while while (d <> 0) do begin writeln('write integer num'); read(a); if (Odd(a) AND (a < 0)) then begin if c < 0 then begin writeln('a = ',a,' ', 'b = ',b,' ','c = ', c); writeln('a + b + c = ',a + b + c); // сумма отрицательных readln(); readln(); d:=0; end; if b < 0 then begin c := b; b := a; end; b := a; // предыдущее end end; end.
- Log in to post comments
- 1377 reads
vedro-compota
Sat, 05/01/2021 - 12:35
Permalink
Сначала дорешаем задачу 8
Сначала дорешаем задачу 8 http://fkn.ktu10.com/?q=comment/4636#com...
_____________
матфак вгу и остальная классика =)
i_love_cookies
Wed, 05/05/2021 - 15:02
Permalink
после решения задачи 8, без перезаписывания переменных