var
i, k, n: integer;

begin
read(n);
for i := 10 to 99 do
    if i mod 10 + i div 10 = n then begin
      writeln(i);
      k := k + 1;
    end;
writeln('k = ', k);
end.

0 0

4 года назад

Сделайте это срочно пожалуйста

innka777

Ответ:

1) Получение (Нюхает цветы, получает информацию о запахе)

2) Получение (слушает что-то - получает)

3) Передача (ну типо поел и показал жестом вкусно)

P.s глупые задания, можно связать с чем угодно.

0 0

3 года назад

В двух строках текстого файла находится по одному целому числу. Найти какое из этих чисел больше. Результат на экран (Паскаль)

Олег Иванович123

Var
f1: text;
a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
else writeln (a, '<', b);
end.

0 0

4 года назад

Какое количество информации в сообщении из 10 символов, записанном буквами из 32-символьного алфавита?

Незнайка123

Мощность алфавита N = 32
32= 2^{5}
5-вес одного символа в битах
10*5=50 бит

0 0

4 года назад