Ну я думаю иконка, но честно говоря вопрос странный
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Канада, Бразилия, Япония - это страны.
Теории в интернете полно.
3) 3 раза
4) 5
5) until n>6
6)program zadanie;
uses crt;
Var
n,k,i,S: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
for i:=1 to n do
begin
S:=S+i*i;
end;
writeln('Сумма квадратов=',S);
end.
7)program zadanie2;
uses crt;
Var
n: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
writeln('Результат:',(5+(n-1))*n);
<span>end.</span>
Арифметика. Надо узнать объем информации в битах и разделить на скорость модема:
258*1024*8/128000 = 16.512≈16.5 сек
Ответ: ≈16.5 сек