Var s,k: integer;

begin

s : = 0;

for k : = 12 to 15 do

s : = s + 13;

writeln(s);

end.

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