Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
Ну ваобще на жестком диске. Если речь идет о виндоусе то он устанавливается на вибронный диск в папку windows. чаще всего в каталог C:\windows
Если у тебя Паскаль, то
if(a div b=0), to a*a
<span>writeln(a);
</span>Но если что это вводный цикл
Var value, sigma, counter : integer;
<span>Begin
counter := 0;
</span><span>value := 0;
</span><span>sigma := 0;</span>
<span> while counter < 50 Do
</span><span> begin</span>
<span> value := value + 2;
</span><span> sigma := sigma + value;</span>
counter := counter + 1;
<span> end;</span>
<span> writeln(sigma);
</span><span> readln();
</span><span>End.
</span>