На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 7 и последняя цифра которых равна 3. Числа не превосходят 10000. Массивы не использовать.


Ответ:var sum, num: Integer;begin    readln(num);        while (num <> 0) do    begin        if ((num mod 7 = 0) and (num mod 10 = 3)) then sum := sum + num;        readln(num);    end;        Writeln(sum);end.Объяснение:

Оценить ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика

Информатика, опубликовано 13.06.2019

Помогите сделать 1 и 3

Вопросы из других категорий

Математика, опубликовано 13.06.2019

Помогите пожалуйста

Физика, опубликовано 13.06.2019

Помогите пожалуйста 4 и 5