Uses crt;
var
n, sum:integer;
begin
n := 100;
while n < 1000 do
begin
sum += n;
n += 4;
end;
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.
Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
Вот, держи, извини за качество
Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд
Это выделение наиболее важных характеристик объекта или предмета изучения