Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.
Емкось жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
<span>Емкость blue-ray дисков от 25 гб до 50 гб.</span>
1) Заходишь в "Мой компьютер".
2) Нажимаешь правую кнопку мыши
3) Свойства
4) ОЗУ-твоя оперативная память
4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
Program n1;
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.