Решить задачу в Excel .

3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end. 

Ход решения:
1 Задание:
A1=10

A2=20

A3=A2/A1 =20 : 10 = 2

B1=ЕСЛИ(A2*A1>1000;5;10) =ЕСЛИ(20*10>1000;5;10) =200 > 1000
(неверно),тогда 10.

B2=5

B3=СУММ(A1:B2) = A1 + A2 + A3 + B1 + B2 = 10 + 20 + 2 + 10 + 5 = 47.
 
2.Задание.
Скорее всего это ложь.
a) ИЛИ (A1<5;B3=45) = (10<5;47=45),следовательно это ЛОЖЬ
б)НЕ(A3=2) = (2=2) ЛОЖЬ ,
2 РАВНО ДВУМ ,А ТУТ НАПИСАНО НЕ РАВНО ДВУМ => ЛОЖЬ
в) ИЛИ(И(НЕ(2>2);10=10);И(5<=5;47=50)) ,тоже ЛОЖЬ
Ответ: ЛОЖЬ

Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n mod 10)*10 + n div 10;
writeln('m = ',m);
end.

Пример:
<span>n = 37
m = 73</span>