1. Информатика
  2. Паскаль 1. Напишите программу,

Паскаль
1. Напишите программу, которая в последовательности натуральных чисел определяет сумму
чисел, кратных 2 и оканчивающихся на 8. Программа получает на вход целые числа,
количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0
(0 – признак окончания ввода, не входит в последовательность).
В последовательности всегда имеется число, удовлетворяющее условию
Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 8.

Nastenkapu Nastenkapu    2   23.04.2020 21:19    3

Ответы
zzzzzzya2017 zzzzzzya2017  13.10.2020 19:24

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

readln(a);

while(a <> 0) do begin

if (((a mod 2) = 0) and ((a mod 10) = 8)) then

 sum:= sum + a;

readln(a);

end;

writeln('Сумма: ', sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lisovskymaxim2006 lisovskymaxim2006  18.01.2021 13:22
Print\n оператор орындалғаннан кейін экранға шығару нәтижесін анықта:Дұрыс жауап нұсқасын танда:4АрткаTercer​...
barbariskaulyaЮлия barbariskaulyaЮлия  18.01.2021 13:22
1.    Верно ли утверждение, что тройные апострофы или кавычки используется для обработки длинные строки, состоящей из большого количества символов? a)   Верноb)   Неверно​...
СталкерняотВовы СталкерняотВовы  18.01.2021 13:25
1.    Установи соответствие между языками программирования и определениями типов данных 1С оператора typeAABC Pascal2В разделе описания переменных varBPython3В любом месте...
ира967 ира967  08.07.2019 12:40
Написать программу на языке паскаль. преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине...
89232752183 89232752183  08.07.2019 12:40
Определите значение переменной выполнения следующего фрагмента программы: a : = 30; b : = 6; a : = a * 3 / b; if a b then c : = 3*a - 5 *(b+3) else c : = 3*a + 5 * (b+3);...
nikitabelokon21 nikitabelokon21  08.07.2019 12:40
Определите значение переменной выполнения следующего фрагмента программы: a: = 30; b: = 6; a: = a/5 – (b – 3); if 2*a b then с: = a - 5*b + 2; else с: = a + 5*b + 2...
Anastasia2727 Anastasia2727  08.07.2019 12:40
Склавиатуры вводится целое число, содержащее не более 7 цифр. определить максимальную цифру в этом числе. программа pascal abc. нужно использовать цикл с предусловием....
Ваняяш Ваняяш  01.02.2021 19:47
Напишите программу для выполнения перестановки первого нечетного и первого отрицательного элементов массива​...
Элайза5 Элайза5  01.02.2021 19:46
Нужно по этой схеме создать рабочую программу в Паскале 30б...
06Sofa07 06Sofa07  02.10.2020 12:52
Найдите верные утверждения:WWW объединяет ресурсы, размещённые в компьютерах по всему миру.B WWW находится только проверенная и верная информация.Существует всего несколько...

Популярные вопросы