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