На вход программке подаётся последовательность натуральных чисел. Признак конца ввода

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

Задать свой вопрос
Нелли Ойзерман
Писать на паскале!!!
1 ответ

Ответ:

var sum, num: Integer;

begin

   readln(num);

   

   while (num lt;gt; 0) do

   begin

       if ((num mod 7 = 0) and (num mod 10 = 3)) then sum := sum + num;

       readln(num);

   end;

   

   Writeln(sum);

end.

Изъясненье:

, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт