Задача 9 Урок 11
Primary tabs
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
var a, b, c, d: integer; begin a:=1; while (a<>0) do begin writeln(' vvedite celoe chislo i nagmi enter: '); readln(a); d:=c; c:=b; b:=a; if (b<>0) and (c<>0) and (d<>0) then break; end; write('otvet: ', b, ' ', c, ' ', d, ' '); readln(); end.
КОНСОЛЬ:
vvedite celoe chislo i nagmi enter: 5 vvedite celoe chislo i nagmi enter: -3 vvedite celoe chislo i nagmi enter: 2 otvet: 2 -3 5
- Log in to post comments
- 872 reads
vedro-compota
Wed, 12/22/2021 - 18:26
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)