Sub z()
For i = 44 To 3 step -2
k=k+1
s=s+i
Next i
Print k;"; ";s
<span>End Sub</span>
Задание №1
3 × 3 = 9 // умножить на 3
9 + 2 = 11 // прибавить 2
11 × 3 = 33 // умножить на 3
33 + 2 = 35 // прибавить 2
35 + 2 = 37 // прибавить 2
Ответ: 12122
Задание №2
Если 11221 из числа 11 делает число 118, можно записать как:
Команда 22 из числа 13 делает число 117.
Таким числом является 3.
13 × 3 = 39
39 × 3 = 117
Ответ: 3
Задание №3
Если 21212 из числа 11 делает число 130, можно записать как:
Команда 121 из числа 22 делает число 65.
Таким числом является 7.
22 + 7 = 29
29 × 2 = 58
58 + 7 = 65
Ответ: 7
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.