1 задание, а лучше 1 и 2!!!! срочно!!!!

1 задание, а лучше 1 и 2!!!! безотлагательно!!!!

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

2. Решение "по-школьному"


var

 n,s:integer;

begin

 s:=0;

 repeat

   Read(n);

   if (n mod 3=0) and (n mod 10=6) then s:=s+n

 until n=0;

 Writeln('Сумма отобранных чисел равна ',s)

end.


Пример

15 36 26 72 25 96 83 0

Сумма отобранных чисел одинакова 132




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


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

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

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

Войти на сайт