Question

Помогите написать программу в Паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программа не работает, обновите версию!

1. Современное решение (в "одну" строку)

begin
  Writeln('S=',ReadSeqIntegerWhile(m->m>0)
      .Where(m->(m mod 6=0) and (m mod 10=4)).Sum)
end.

Пример
34 18 174 14 24 236 114 0
S=312

2. А так учат в школе...

var
  m,s:integer;
begin
  s:=0;
  repeat
    Read(m);
    if (m mod 6=0) and (m mod 10=4) then s:=s+m;
  until m=0;
  Writeln('S=',s)
end.

Answer 2

Большое спасибо!

Answer 3

Пожалуйста. Но кнопки вполне было достаточно))