<em><u>Изначально s = 60</u></em>
<em><u>Цикл будет работать 6 раз</u></em>
Первый проход цикла: k = 5, тогда s = 60 - 5 = 55
Второй проход цикла: k = 6 (т.к один проход уже сделан, и значение переменной k увеличилось на 1), тогда s = 55 - 6 = 49
Третий проход цикла: k = 7, тогда s = 49 - 7 = 42
Четвертый проход цикла: k = 8, тогда s = 42 - 8 = 34
Пятый проход цикла: k = 9, тогда s = 34 - 9 = 25
Шестой проход цикла: k = 10, тогда s = 25 - 10 = 15
Окончательный ответ: значение переменной s после выполнения цикла = 15
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
Паскаль
var s:integer;
begin
s:=0;
for i=1 to 5 do
s:=s+i;
writeln('Сумма чисел=',s);
end;
Примерно так рисуются круги Эйлера