Ответ:
Объяснение:
S=30, S равно сумме чётных чисел от 2 до 10, 2+4+6+8+10
<em>uses crt;(если используешь абс паскаль) </em>
<em>var n,b,k:integer;</em>
<em>begin</em>
<em>writeln ('n'); </em>
<em>readln (n);
k:=n mod 2;
</em><em>b:=n mod 10;</em>
<em>if k = 0 then writeln (b);</em>
<em>end.</em>
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший