Паскаль помогите Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и глаз у дракона, которому N лет?
Answers & Comments
BrightOne
Program dragon; var n, h: integer; begin h := 0; write('n = '); readln(n); if n > 100 then begin h := (n - 100) * 2; h := h + 300; end else h := n * 3; writeln('голов: ', h); writeln('глаз: ', h * 2); end.
Answers & Comments
var
n, h: integer;
begin
h := 0;
write('n = ');
readln(n);
if n > 100 then
begin
h := (n - 100) * 2;
h := h + 300;
end
else
h := n * 3;
writeln('голов: ', h);
writeln('глаз: ', h * 2);
end.