Регистрация
Infinity167
19.08.2020 04:20
Информатика
Есть ответ 👍

Что такое кампьютерная сеть ? объясниье ясно и коротко

121
331
Посмотреть ответы 2

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

Xamelion11
Xamelion11
4,7(15 оценок)
Одним словом эоо интернет
kurotetsu666
kurotetsu666
4,7(23 оценок)

Можно при вводе фильтровать что вводится, если число не удовлетворяет требованиям оно игнорируется

var a: array[1..10] of integer;

n,c,i:integer;

inp : real;

begin

   readln(n);

   i:=1;

   repeat

       readln(inp);

       c := round(inp);

       if (inp = c) and (inp >= 0.0) and (inp <1001.0) then

           begin

               a[i]:= c;

               i:=i+1;

           end;

   until(i=n+1);

   

   c:=0;

   for i:= 1 to n do

       if a[i] < n then

           c:= a[i]+c;

   writeln(c);

end.

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