РЕБЯТА, ПОЖАЛУЙСТА УМОЛЯЮ ПОМОГИТЕ ЭТО ПРОВЕРОЧНАЯ НУЖНО ОЧЕНЬ СРОЧНО!!! РЕШИТЕ КАК МОЖНО...

+392 голосов
5.1m просмотров

РЕБЯТА, ПОЖАЛУЙСТА УМОЛЯЮ ПОМОГИТЕ ЭТО ПРОВЕРОЧНАЯ НУЖНО ОЧЕНЬ СРОЧНО!!! РЕШИТЕ КАК МОЖНО СКОРЕЕ!!! БУДУ ОЧЕНЬ БЛАГОДАРНА!!! Напишите программу, которая в последовательности натуральных чисел определяет сумму всехчисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количествовведённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончанияввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа непревышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 иоканчивающихся на 9.Пример работы программы:Входные данные Выходные данные162956939048​


image

Информатика | 5.1m просмотров
Дан 1 ответ
+36 голосов

var

   n, sum: integer;

begin

  sum := 0;

  read(n);

  while n <> 0 do

  begin

    if (n mod 3 = 0) and (n mod 10 = 9) then

      sum := sum + n;

    read(n);

  end;

 

  write(sum);

end.

(328 баллов)