var
i: Integer;
name, surname: String;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
for i := 1 to 10 do
writeln(name,' ', surname);
end.
Var i:integer; s,p:real;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
s:=s+p;
end;
writeln('s = ',s);
end.
Результат:
s = 4037913
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
I=16*100*80*2000+(80*5)мб
1)16*100=1600 бита
2)1600*80=128000 бит
3)128000*2000=256000000бит=30,5 Мб
I=80*5+30,5=430,5Мб
Ответ:Да, рукопись поместиться на флешке, обьем рукописи равен 430,5 Мб
По какому предмету если по математике то можно лич,дроби,параллелепипед и т. д.