с клавиатуры вводятя числа, пока не будет введено делящееся на 5,

С клавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из их, которые больше 10

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

(pascal)

var a,b:integer


begin

while alt;gt;5 do

begin

read(a);

if agt;10 then b:b+a;

end;

write(b);

end.


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


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

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

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

Войти на сайт