Превратите одно слово в другое, всякий раз заменяя по одной букве так чтобы новое слово было существительным в именительном падеже. напимер СлоН-СлоГ. Используйте подсказки. 1 Наказание Карп ___ ___ 2 Древесина Коза
Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var s, k: integer; label met; begin s:=-12; k:=90; Writeln('s=',s,', k=',k); s:=s+10; Writeln('s=',s); met: Writeln('Метка met:'); k:=k+10; Write('k=',k); if k<200 then s:=50 else s:=s+k; Writeln(', s=',s); if k<200 then goto met; Writeln('Результат: s=',s) end.
Факториалом числа называет произведение всех чисел от 1 до этого числа. Нам нужно посчитать 1 * 2 * 3 * 4 * 5 * 6 * 7 тремя и убедиться, что получится 5040.
PascalABC.NET 3.2 begin var fact := 1; var i := 1; while i < 8 do begin fact *= i; i += 1; end; println('Через while получилось', fact);
fact := 1; for i := 1 to 7 do fact *= i; println('Через for получилось', fact);
fact := 1; i := 1; repeat fact *= i; i += 1; until i > 7; println('Через repeat получилось', fact); end.
Превратите одно слово в другое, всякий раз заменяя по одной букве так чтобы новое слово было существительным в именительном падеже. напимер СлоН-СлоГ. Используйте подсказки. 1 Наказание Карп ___ ___ 2 Древесина Коза