Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
    begin
    if (x mod 3 = 0) and (x mod 10 = 4)
      then s := s + x;
    read(x)
    end;
write(s)
end.

0 0

4 года назад

Переведите число 121 из десятичной системы в двоичную систему счисления. Сколько единиц содержит полученное число? В ответе укаж

Puppy-cuppy

121:2=60(1)
60:2=30(0)
30:2=15(0)
15:2=7(1)
7:2=3(1)
3:2=(1)(1)
число: 1111001
Ответ: 5 единиц

0 0

1 год назад

Прочитать ещё 2 ответа

Укажите какой вид относится к видам алгоритмических структур?1) линейных2) ветвящийся3) циклический4) все перечисленные снизу ви

Natalia Murga

4)все перечисленные выше виды

0 0

1 год назад

Прочитать ещё 2 ответа

Ребята пожалуйста помогите решить эти задания даю 14 баллов заранее спасибо

ДДмитриВас [92]

Что именно см сделать?

0 0

4 года назад