Задача 9 урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
program task9_lesson11; var i,a1,a2,a3,c:integer; begin for i := 1 to 3 do begin writeln('enter number'); readln(c); if i=1 then a1 := c; if i=2 then a2 := c else a3 := c end; writeln('Entered numbers : ',a1,' ',a2,' ',a3); readln(); end.
- Log in to post comments
- 372 reads