Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. программа получает на вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак
окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. входные данные 54 28 72 34 20 0 78 (с пояснениями ! )

pascal abc

program z1;  

var a,s: integer;   //описание переменных

begin

readln(a);   //вводим первое число

s: =0;   //начальное значение суммы

while a< > 0 do //условие ввода (ввод оканчивается нулем)

 
begin

    if (a mod 10=4) and (a mod 6=0) then s: =s+a;   //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

    readln(a)
//заново вводим число

  end;

writeln(s)   //вывод суммы, когда весь цикл завершится

end.

p.s не особо понимаю, почему с таким вводом, такой ответ у тебя получается

Ре­ше­ние.

Ско­пи­ру­ем число из ячей­ки A1 в ячей­ку P1. По­сколь­ку ладья может хо­дить через не­огра­ни­чен­ное ко­ли­че­ство ячеек вниз и впра­во, не­об­хо­ди­мо для каж­дой ячей­ки вы­би­рать, из ка­ко­го числа в стро­ке до этой ячей­ки, и из ка­ко­го числа в столб­це выше этой ячей­ки долж­на схо­дить ладья, чтобы сумма ячеек при этом была мак­си­маль­ной. Для этого в ячей­ке Q1 за­пи­шем фор­му­лу =МАКС($P$1:P1)+B1 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на R1:AD1. В ячей­ке P2 за­пи­шем фор­му­лу =МАКС($P$1:P1)+A2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на P3:P15. В ячей­ке Q2 за­пи­шем фор­му­лу =МАКС(МАКС($P2:P2);МАКС(Q$1:Q1))+B2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на Q2:AD15. По­лу­чим ответ — 323.

ответ: 323.