Переделать код из Паскаля в C++ var
A, i: integer;

begin
writeln('Введите цифру (0 - 9):');
repeat
write(' A = ');
readln(A)
until A in [0..9];
writeln;
for i := 100 to 999 do
begin
if (i div 100 + i mod 10 = A)and(i mod A = 0) then
writeln(' ', i)
end
end.

Question

Информатика: Переделать код из Паскаля в C++ var A, i: integer; begin writeln( Введите цифру (0 - 9): ); repeat write( A = ); readln(A) until A in [0..9]; writeln; for i := 100 to 999 do begin if (i div 100 + i mod 10 = A)and(i mod A = 0) then writeln( , i) end end.​

bagfaver · Accepted Answer

Если Великобритания сказала оба раза правду, то тогда проект Китая, и Китай тогда солгал дважды, значит США должно было один раз солгать, один раз сказать правду. Но США оба раза сказало правду - противоречие.

Если Великобритания два раза солгала, то проект Великобритании и США - противоречие.

Значит Великобритания один раз солгала, один раз сказала правду.

То-есть, проект либо Великобритании, либо США. Если проект США, то и Китай один раз солгал, один раз сказал правду - противоречие.

Значит проект Великобритании.

Получаем: Великобритания - осторожный, США - скрытный, Китай - откровенный.

ответ: представитель США.

Переделать код из Паскаля в C++ var A, i: integer; begin writeln('Введите цифру (0 - 9):'); repeat write(' A = '); readln(A) until A in [0..9]; writeln; for i := 100 to 999 do begin if (i div 100 + i mod 10 = A)and(i mod A = 0) then writeln(' ', i) end end.​

MOGZ ответил

Переделать код из Паскаля в C++ var
A, i: integer;

begin
writeln('Введите цифру (0 - 9):');
repeat
write(' A = ');
readln(A)
until A in [0..9];
writeln;
for i := 100 to 999 do
begin
if (i div 100 + i mod 10 = A)and(i mod A = 0) then
writeln(' ', i)
end
end.