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