Регистрация
Крутая195023
06.06.2022 00:18
Информатика
Есть ответ 👍

Перевести у двійкову систему числа: 27.05 2004​

216
428
Посмотреть ответы 1

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

GoldenLynx1999
GoldenLynx1999
4,6(18 оценок)
1) var       n: integer;             y, x: real; begin       readln(x, n);       y : = 1;       while n > 0 do       begin               y : = y * x;               n : = n - 1;       end;       writeln(y); end. 2) var       a, b, c, t, i: integer; begin       readln(a, b, c);       writeln(0: 2, ': a=', a, ' b=', b, ' c=', c);       for i : = 1 to 10 do       begin               t : = a;               a : = b;               b : = c;               c : = t;               writeln(i: 2, ': ', a, ' ', b, ' ', c);       end; end.

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