1:
--
program l;
var n:integer;
begin
for n:=1 to 10 do
writeln('Рота');
end.
--
program l;
var
n, i: integer;
begin
writeln('Введите n:');
readln(n);
for n := 0 to n do
begin
i := n * n;
end;
writeln(n,'в квадрате: ',i);
end.
--
3:
program l;
var i,n:integer;
begin
for n:=1 to 6 do
begin
i:=456*n;
Writeln(n,'фунт(-а) это ',i, 'грамм.');
end;
end.
8 Мбайта = 8*1024 Кбайт = 8192 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (8192/100)*25 = 2048 Кбайт
Лучший ответ пж, ведь я помог :)
2) для удобства использования компьютера
3) стрелка
4) от настроек или действия выполняющееся мышкой
5) лазером
Sqrt(a*a+b*b+c*d)/sqrt(a*b*c*d)