Задача 9 Урок 11
Primary tabs
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()Подсказка: Если не получается решить, посмотрите эту видео-подсказку(link is external).
var a, b, c, x, i: integer; begin while i < 3 do begin i += 1; write('Введите целое число: '); readln(x); if (i = 1) then a := x; if (i = 2) then b := x; if (i = 3) then begin c := x; break; end; end; write('Введенные числа: ', a, ' ', b, ' ', c); readln(); end.
- Log in to post comments
- 378 reads