Я не понимаю на украинском
Но предполагаю что будет ответ:6
Вот решение ваше задачки. В ответе выводится число: 4
1) С помощью while:
var
a,b,c,i:integer;
begin
i:=0;
b:=0;
writeln('Write 10 number:');
while i<10 do
begin
read(a);
b:=b+a;
i:=i+1;
end;
writeln('Average: ',b/10:0:0);
readln
end.
#1 Wi-Fi (интернет)
#2 сети
беспроводная проводная
+ -
- +
#3 Мастер 1, потому, что легче сделать (установить)
#4
а)Троянская программа
b) ?если лечение невозможно?
c)защищать компьютер от антивирусов и "обезвреживать" их
#5
1)компьютер
2)антивирус
3) интернет
Схема и программа вместе:
Program sum;
var M,b,c:integer;
begin
writeln('Введите число от 10 до 99: ');
readln(M);
c:=M;
if (M<10) or (M>99) then b:=0
else
while (M<100) do
begin
b:=b+M;
inc(M);
end;
writeln('Сумма всех двухзначных чисел начиная от ',c, ': ',b);
<span>end.</span>