Блог для маленьких школьников и их родителей
ШколаЛа

Помогите пожалуйста программы написать!

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Помогите пожалуйста программы написать!

Ответов к вопросу: 1
  • duck2669
    23.07.2024 | 08:53

    5.                                                                         program raf105;

    var

     num,sum: integer;

    begin

     writeln(‘Вводите числа по очереди. Что бы закончить введите 0’);

     repeat

       readln(num);

       if (num mod 6 = 0) and (num mod 10 = 4) then sum:= sum + num;

     until num = 0;

     writeln(‘Вывод: ‘,sum);

    end.

    6.                                                                         program raf105;

    var

     num,count: integer;

    begin

     writeln(‘Вводите числа по очереди. Что бы закончить введите 0’);

     repeat

       readln(num);

       if (num mod 4 = 0) and (num <> 0) then inc(count);

     until num = 0;

     writeln(‘Вывод: ‘,count);

    end.
                                                                              PascalABC

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.