Решите программу Program test5; var i,n:integer; begin n:=0; for i:=1 to 90 do if i mod 2=0 then n:=n+1; writeln(n); end.
Смотри приложенный файл
Спасибо