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

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

Задать свой вопрос
Жека Ромасенко
Паскаль пойдет?
1 ответ
Var  a, n, s: integer;
begin 
a := 1; 
while a mod 5 lt;gt; 0 do  begin   
readln(a);   
if a gt; 10 then       
begin           
inc(n);           
s := s + a;        
end;    
end;   
writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт