Урок 11 задача 8
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var numb, check: integer; begin check:=0; while check < 3 do begin writeln('vvedite chislo: '); readln(numb); if (numb < 0) and (numb mod 2= -1) then begin check:=check+1; writeln('otricatelnoe i nechetnoe chislo: ', numb); end; end; readln(); end.
- Log in to post comments
- 720 reads
vedro-compota
Wed, 09/08/2021 - 20:20
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)