Var s,k: integer;

begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

end.
решите задачу как в паскале обьяснение не нужно

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку