Program f1; var i,n,t,y: integer; s;real; begin read(n); for i:=-n to n do begin if i mod 2=0 then y:=i; if i mod 5 =0 then t:=i ; s:=y/t; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
