На паскале написать программу которая в последовательность чисел( натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа получает на вход нат числа, признаком окончания ввода явл число 0.
Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.
Ответы
Ответ дал:
0
var
a: integer;
s: longint;
begin
s := 0;
a := -32768;
while a <> 0 do
begin
readln(a);
if a <> 0 then
if a mod 4 = 0 then
if a mod 10 = 6 then s := s + a
end;
writeln('Сумма равна ', s)
end.
a: integer;
s: longint;
begin
s := 0;
a := -32768;
while a <> 0 do
begin
readln(a);
if a <> 0 then
if a mod 4 = 0 then
if a mod 10 = 6 then s := s + a
end;
writeln('Сумма равна ', s)
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад