Урок 11 задача 9
Primary tabs
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
Решение:
var a,b,c,i,s:integer; begin i:=1; while (i<=3) do begin writeln('vvedite chislo'); readln(s); if i=1 then a:=s; if i=2 then b:=s; if i=3 then c:=s; i:=i+1; end; writeln('Otvet = ',a,', ',b,', ',c); readln(); end.
Консоль:
vvedite chislo 5 vvedite chislo 9 vvedite chislo 2 Otvet = 5, 9, 2
- Log in to post comments
- 583 reads
vedro-compota
Wed, 05/11/2022 - 19:27
Permalink
if i=1 then a:=s;
-- i не может быть равно одновременно трем значениям, используйте else, чтобы сокраить число проверок
--
_____________
матфак вгу и остальная классика =)
avast36
Thu, 05/12/2022 - 09:33
Permalink
Исправил
vedro-compota
Wed, 05/18/2022 - 20:25
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)