Var p,m,v:real; i:integer;
begin
m:=0.45;
p:=0.5-0.1;
for i:=0 to round((1-0.5)/0.1) do
begin
p:=p+0.1;
v:=m/p;
writeln(p:4:1,' кг/м^3, V = ',v:5:3,' м^3');
end;
end.
Результат:
<span> 0.5 кг/м^3, V = 0.900 м^3
0.6 кг/м^3, V = 0.750 м^3
0.7 кг/м^3, V = 0.643 м^3
0.8 кг/м^3, V = 0.563 м^3
0.9 кг/м^3, V = 0.500 м^3
1.0 кг/м^3, V = 0.450 м^3</span>
Держи программу на паскале, если есть вопросы, то пиши
program test1;var x,y,K,N:integer;beginwrite('Введите размер конверта х и у см');read(x);read(y);write('Введите размер открытки K и N см');read(K);read(N);if (x>=K) and (y>=N) thenwrite('открытка войдет')else write ('не войдет');end.
<u>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('N=');
var f,g:file of integer;
ReWrite(f,'f.bin');
Randomize;
for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
Seek(f,0);
ReWrite(g,'g.bin');
var a,b:integer;
Writeln('Содержимое файла f');
Read(f,a); Write(a,' ');
while not f.Eof do begin
Read(f,b);
Write(b,' ');
Write(g,a*b);
a:=b
end;
f.Close;
Writeln;
Writeln('Содержимое файла g');
Seek(g,0);
while not g.Eof do begin Read(g,a); Write(a,' ') end;
g.Close
end.
<em>Пример</em>
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var s:=ReadString('введите свое имя и фамилию:');
for var i:=1 to 10 do s.Println;
end.
8 бит - 1 байт бла бла бла бла