Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>'Введите число: '</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>'Ответ: ',</em>a);
end.
Python 3:
k = 0
for a in range(10, 100):
[tab] for b in range(10, 100):
[tab] [tab] if ((a+b)<=100):
[tab] [tab] [tab] k+=1
[tab] [tab] [tab] print('k=', k)
P.S. один [tab] - 4 пробела
Ответ:
b)
Объяснение:
присутствующие в заголовке процедуры и определяющие тип и место подстановки фактических параметров
Для простоты решения сначала переводим все в десятичную систему. Для этого расписываем данные числа в развернутой форме и просто считаем.
x+y = 161+13 = 174
Var
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ' ');
end.