Пожалуйста, напишите программу в PascalABC.NET
Для первого и второго ( обоих ) вариантов
Ответы
1)
var k,s,i:integer;
begin
k:=0;
s:=0;
for i:=100 to 200 do
if i mod 7 = 0 then
begin
k:=k+1;
s:=s+i;
end;
writeln('Cумма = ', s);
writeln('Кол-во = ', k);
end.
2)
var x,max:integer;
begin
write('Введите число = '); readln(x);
max:=0;
while x > 0 do
begin
if x mod 10 > max then max:=x mod 10;
x:=x div 10;
end;
writeln(max);
end.
3)
var k,s,i:integer;
begin
k:=0;
s:=0;
for i:=200 to 300 do
if i mod 8 = 0 then
begin
k:=k+1;
s:=s+i;
end;
writeln('Cумма = ', s);
writeln('Кол-во = ', k);
end.
4)
var x,max:integer;
begin
write('Введите число = '); readln(x);
max:=0;
repeat
if x mod 10 > max then max:=x mod 10;
x:=x div 10;
until x <= 0;
writeln(max);
end.