Question

Составьте пожалуйста программу в PascalABC.NET

Answer 1

var i,s:integer;

begin

s:=0;

for i:=100 to 200 do

if (i mod 7 = 0) then

s := s+1;

writeln(s);

end.

var n,max:integer;

begin

max:=0;

read(n);

while (n > 0) do

begin

if (n mod 10 > max) then

max := n mod 10;

n := n div 10;

end;

writeln(max);

end.