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