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