Задача 10 Урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var i, k, Z, X, C: integer; begin i := 0; k := 0; while(k <> 3) do begin writeln('vvedi celoe chislo'); readln(i); if((i < 0) and ((i mod 2) <> 0)) then begin if(k = 0) then Z := i; if(k = 1) then X := i; if(k = 2) then begin C := i; end ; k := k + 1; if(k = 3) then begin writeln('SUMM = ', Z + X + C); break; end; end; end; readln(); end.
- Log in to post comments
- 1893 reads
vedro-compota
Sun, 07/25/2021 - 13:57
Permalink
Замечания аналогично http:/
Замечания аналогично http://fkn.ktu10.com/?q=comment/4888#com...
_____________
матфак вгу и остальная классика =)
jl8qy9kd_pro
Tue, 07/27/2021 - 10:28
Permalink
RE
vedro-compota
Tue, 07/27/2021 - 18:51
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)