vladdubrovskiy1
29.04.2021 02:52

Какой алгоритм называется линейным? Назовите  основные  символы алфавита языка программирования  Паскаль  АВС?

Каковы приоритеты выполнения операций?

Какие правила следует соблюдать при записи математических выражений на языке программирования  Паскаль  АВС?

Для чего необходимо компилировать программу?

Как запустить программу на выполнение?

Как увидеть результаты выполнения программы на экране?

Можно ли копировать фрагменты программы?

Какое расширение имеют файлы, созданные в среде программирования  Паскаль  АВС?

Как открыть файл в среде программирования  Паскаль  АВС?

Как создать файл в среде программирования  Паскаль  АВС?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Viktori1111112111
11.12.2022 08:14

//PascalABC.Net 3.1 сборка 1200

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

0,0(0 оценок)
Ответ:
хзхзхзхззз
11.12.2022 08:14

//PascalABC.Net 3.1 сборка 1200

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота