//с начала месяца прошло m часов. Определить, какое сейчас число var m,k:integer; begin read(m); if (m 744) then writeln('не корректные данные') else begin k:= m div 24; writeln(k); end; end.
//с начала месяца прошло m часов. Определить, какое сейчас число var m,k:integer; begin read(m); if (m 744) then writeln('не корректные данные') else begin k:= m div 24; writeln(k); end; end.
Program3.pas [211 b] ( 0) var m,k:integer; begin read(m); if (m744) then writeln('не корректные данные') else begin k:=m div 24; end; writeln (k); end.
Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29Program2.pas [142 b] ( 0). var a,S:integer; begin for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end; writeln('S=',s); end.
Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.Program2.pas [142 b] ( 0) var i,s:integer; begin for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end; writeln('s=',s); end.