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