Регистрация
ivan88001
15.04.2020 20:22
Информатика
Есть ответ 👍

Решал второй номер под буквой а), но в конце застрял дорешать под этой буквой с подробным объяснением. (буквы буквами б) и в) делать не надо)

188
259
Посмотреть ответы 1

Ответы на вопрос:

leedercools
leedercools
4,8(24 оценок)

pascal

Объяснение:

var n, i, k, s: integer;

begin

 Write('Сколько чисел будете вводить? '); ReadLn(n);

 for i := 1 to n do

 begin

   Write('Введите ', i, '-е число: '); ReadLn(k);

   if k < 4 then s := s + k;

 end;

 WriteLn('Сумма чисел, которые меньше 4, равна ', s);

end.

Популярно: Информатика