Швейная машина
быстрая, нужная
помогает, зашивает, штопает
Без нее некуда!
одежда
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.
Все переводим в меньшие единицы измерения
128 000 бит = 16 000 байт
5 мбайт = 5 242 880 байт
t = 5 242 880/16 000=327.68 сек = 5 мин