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

дженни34 дженни34    3   07.10.2019 09:30    0

Ответы
СургутянкаАся СургутянкаАся  10.10.2020 01:17

(pascal)

var a,b:integer


begin

while a<>5 do

begin

read(a);

if a>10 then b:b+a;

end;

write(b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика