Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.
Ответ:
10
Объяснение:
У исполнителя Бета две команды, которым присвоены номера:
1. прибавь b
2. умножь на 2
Программа 12121 переводит число 25 в число 170.
Составим уравнение:
(((25+b)*2)+b)*2+b=170
(50+2b+b)*2+b=170
100+4b+2b+b=170
7b=70
b=10
Проверка:
25+10=35
35*2=70
70+10=80
80*2=160
160+10=170
Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
<span>end.</span>
программа задаёт переменной i значения с 3 по 21 и выводит только те числа,которые при делении на 3 дают остаток 0.
Ответ: 3,6,9,12,14,18,21.