profile
Опубликовано 6 лет назад по предмету Информатика от BananovChompie

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Входные данные
54
28
72
34
20
0
78
(С ПОЯСНЕНИЯМИ ПОЖАЛУЙСТА!)

  1. Ответ
    Ответ дан bluzord

    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 не особо понимаю, почему с таким вводом, такой ответ у тебя получается

    1. Ответ
      Ответ дан bluzord
      сорри, ошибся, там проверка, что оканчивается на 4
    2. Ответ
      Ответ дан grattttt
      можете помочь
    3. Ответ
      Ответ дан grattttt
      люди очень надо
    4. Ответ
      Ответ дан grattttt
      https://znanija.com/task/31723947
  2. Ответ
    Ответ дан iolandavalerypad353

    begin

     ReadSeqIntegerWhile(x -> x <> 0)

     .Where(x -> (x - 24) mod 30 = 0).Sum.Println

    end.

    1. Ответ
      Ответ дан grattttt
      https://znanija.com/task/31723947
    2. Ответ
      Ответ дан grattttt
      Iolandavalerypad353
    3. Ответ
      Ответ дан grattttt
      можешь помочь
    4. Ответ
      Ответ дан grattttt
      очень прям надо
Самые новые вопросы