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

3 года назад

В коробке лежит 31 шар. Среди них 12 красных и 17 желтых. Как такое может быть? Докажите, что здесь нет ошибки. Помогите,пожалуй

Бисерная Пчелка [7]

Так как в коробке всего 31 шар, а дано 12 красных и 17 желтых, то мы можем найти количество шаров, цвет которых мы точно знаем(12+17=29). 29 меньше, чем 31, значит, цвет еще двух шаров мы узнать не можем, т.е они могут быть любого цвета. И, так как 29<31, ошибки в условии задачи нет(цвет двух оставшихся шаров просто не дан)

0 0

4 года назад

9. Пересечением двух или более квадратов назовём новый квадрат, у которого клетка закрашивается в чёрный цвет, только если она ч

bigmax2016

Ответ :1,2,4

Объяснение:вроде так но я считаю так что это 1,2,5.

0 0

4 года назад