Задача 8 Урок 11
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var a, b, c, d: integer; begin a := 1; b := 1; c := 1; while (c > 0) do begin writeln('vvedite chislo'); readln(d); if ((d < 0) AND ((d mod 2) <> 0)) then c := b; b := a; a := d; end; writeln(a, b, c); readln(); end.
Консоль:
vvedite chislo 1 vvedite chislo 2 vvedite chislo -1 vvedite chislo -3 vvedite chislo -7 -7-3-1
- Log in to post comments
- 733 reads
vedro-compota
Wed, 07/13/2022 - 20:41
Permalink
неправильное форматирование
неправильное форматирование. Исправить это, а потом уже займемся алгоритмом
_____________
матфак вгу и остальная классика =)
Neoanthropus
Fri, 07/29/2022 - 18:43
Permalink
var a, b, c, d: integer;
Neoanthropus
Fri, 07/29/2022 - 19:28
Permalink
Вариант 2:
Вариант 2:
vedro-compota
Wed, 08/03/2022 - 20:35
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)