Программка Pascal ABC : введите 70 чисел, выведите сумму чисел из

Программа Pascal ABC : введите 70 чисел, выведите сумму чисел из введённых наименьших 100

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

var a,s: integer;

i: byte;

begin

for i:=1 to 70 do begin

readln(a);

if a lt; 100 then s:=s + a;

end;

writeln(s);

end.

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


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

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

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

Войти на сайт