Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.
Div- деление нацело( отбрасываем дробную часть)
Mod - деление с остатком( отбрасываем целую часть)
1) 10 div 5=2
2) 5 mod 3=2
3) 100 div 20=5
4) 4 mod 1=0
5) (10 mod 3)*(11 mod 2)=1
Ответ:4 а
Объяснение:от бита к килобайту
Var
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
<span>writeln(s);
</span>end.