На паскале написать программку которая в последовательность чисел( естественных), определяет

Question

На паскале написать программку которая в последовательность чисел( естественных), определяет

На паскале написать программку которая в последовательность чисел( естественных), определяет сумму всех чисел кратных 4 и заканчивающихся на 6. Программка получает на вход нат числа, признаком окончания ввода явл число 0.
Могу решить и сам, только нельзя на компютере проверить. Так что надеюсь на вас.

Задать свой вопрос

Vanja Stepnikov 2019-07-28 23:24:26

щас решу, ты только дай числа для тестирования

Тимур Ожегов
Информатика
2019-07-28 23:17:44
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Люд,кто это читает помогите!!Мне безотлагательно необходимо сочинение на тему quot;почему рассказ

1. CH3-COO-CH3 2. CH43.

В каком предложении НЕ со словом пишется слитно?1) Совсем (не)древная, а

Сумма двух углов равнобедренной трапеций одинакова 178. Найдите больший угол тропеций.

Раскройте понятие гласность.Какое воздействие она оказала на состояние русского сообщества?

5-6 речень на английськи мови про фрукти!!!!! Або мои улюблени фрукти!!

продуктами горения этана являются: 1)C и H2O 2)CO и H2O 3)CO2

Какую энергию употребляет электронная плитка при силе тока 6 А за

наиглавнейшее действие владимира святославича

Помогите решить, пожалуйста

Виолетта Огнянова · Answer 1 · 2019-07-28 23:26:42+3:00

Var
a: integer;
s: longint;

begin
s := 0;
a := -32768;
while a lt;gt; 0 do
begin
    readln(a);
    if a lt;gt; 0 then
      if a mod 4 = 0 then
        if a mod 10 = 6 then s := s + a
end;
writeln('Сумма равна ', s)
end.

О проекте

На паскале написать программку которая в последовательность чисел( естественных), определяет

Добро пожаловать!