Регистрация
катя184
12.03.2020 23:26
Информатика
Есть ответ 👍

Напишите последовательно в 2 системе счисления все числа пока сумма цифр этих чисел не равняется 21

266
268
Посмотреть ответы 1

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

Belka1712
Belka1712
4,7(81 оценок)

                                         PascalABC.NET

begin

 var age_V := 18;

 var chests := 27360;

 while chests < 30000 do begin

   chests += 33;

   age_V += 1;

 end;

 print('Невесте будет:', age_V, 'лет')

end.

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