Регистрация
777Leha777
02.08.2022 08:39
Информатика
Есть ответ 👍

Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a,b,c : =in tege; begin writeln ('write'); read (a,b,c); writeln (a,b); writeln (b,a); writeln (a,c); writeln (c,a); writeln (b,c); writeln (c,b); end

213
275
Посмотреть ответы 2

Ответы на вопрос:

moki2
moki2
4,4(100 оценок)
Program project1; var    i, j, k : byte; begin    writeln('трехзначные числа где есть 2 од. цифры: ');   for i : = 1 to 9 do    for j : = 0 to 9 do    for k : = 0 to 9 do    if (i = j) or (j = k) or (i = k) then writeln(i, j, k);     readln; end.пробел = tab (который перед строкой)
TreYsYer
TreYsYer
4,4(66 оценок)

Program From2To10;

var

n2: Longint;

n10, m, i: Integer;

begin

Write('n2 = ');

ReadLn(n2);

n10 := 0;

m := 1;

while n2 <> 0 do

begin

i := n2 mod 10;

n10 := n10 + i * m;

m := m * 2;

n2 := n2 div 10;

end;

WriteLn('n10 = ', n10);

end.

Объяснение:

n2 - исходное число в двоичной записи

n10 - число в десятичной записи

m - 2 в степени номер разряда цифры

i - очередная цифра

Популярно: Информатика