Задача 9 Урок 11
Primary tabs
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
program U11Z9; var i, a, b, c: integer; begin i:=1; while (i<=3) do begin writeln('vvedite celoe chislo'); if (i=1) then readln(a) else if (i=2) then readln(b) else readln(c); i:=i+1; end; writeln(a, ' ', b, ' ', c); readln(); end.
- Log in to post comments
- 408 reads