program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
Колесо-часть автомобиля,стекло-часть окна,покрышка -часть колеса,дверь- часть дома,окно-часть дома,дверь-часть автомобиля.
Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.
Нарисовал таблицу: по вертикали фамилии, по горизонтали - специальности.
Начал вычеркивать: щапов куприянов - не пилоты, поэтому ставлю "-". Петров куприянов - не штурманы - тоже минусы. Щапов и сошин - не радисты- еще 2 минуса. Сигов и щапов - не синоптики - еще 2 минуса (ну вот тут конечно натяжка с сыном) . Петров и Щапов - не бортмеханики - еще 2 минуса. У щапова осталась одна клетка - штурман. Ставлю в нее крест, а остальным в колонке штурман - нули (ну можно тоже минусы) . Далее - куприянов и сигов - не синоптики - еще минусы (кстати - тут проверка натяжки по сыну в санатории) . У куприянова остается 2 клетки- радист и бортмеханик, но он - не радист, потому что занимается боксом, т. е. он - бортмеханик. ставим крест ему в бортмеханик и 0 - в клетку радист.
Сошину и сигову - нули в клетку бортмеханик. Сигов - боксер, поэтому - не радист. Минус в клетку и у него остается только клетка пилот. Нули в клетку пилот петрову и сошину. В столбце радист осталась свободная клетка только у Петрова. Стало быть - сошин - синоптик
Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.
