Задача 8 Урок 11
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные,
отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех
отрицательных нечетных чисел. После чего завершите цикл.
var a, b, c, i: integer; begin i := 0; b := 0; c := 0; while i < 3 do begin writeln('Vvedite celoe chislo'); readln(a); if ((a mod 2) <> 0) and (a < 0) and (b = 0) then begin b := a; i := i + 1; end else if ((a mod 2) <> 0) and (a < 0) and (c = 0) then begin c := a; i := i + 1; end else if (a < 0) and ((a mod 2) <> 0) then begin writeln(b); writeln(c); writeln(a); i := i + 1; end; end; end.
КОНСОЛЬ
Vvedite celoe chislo 1 Vvedite celoe chislo 100 Vvedite celoe chislo -1 Vvedite celoe chislo 5 Vvedite celoe chislo -5 Vvedite celoe chislo 10 Vvedite celoe chislo -10 Vvedite celoe chislo -9 -1 -5 -9
- Log in to post comments
- 415 reads