Var n,m,head,eye: integer; -объявили переменные целого типа begin - начала программу writeln('сколько лет вашему дракону?'); - вывели фразу 'сколько лет вашему дракону?' на экран readln(n); - считали введенную переменную n и перевели каретку на новую строку head:=1; - присвоили значение eye:=2; - присвоили значение for m:=2 to n do - перебираем m от 2 до n if m<=100 then head:=head + 3 -считаем головы else head:=head + 2; -счиаем головы eye:=head*2; - считаем глаза writeln('голов',head,'глаз',eye); -выводи результат end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
