<span>program z1;
Var v,S:Integer; t:real;
Begin
v:=12;
WriteLn('Известно что мальчик бегает в 3 раза больше чем ходит');
WriteLn('3 км/ч его ходьба, следовательно 12 км/ч его бег');
Write('Введите кол-во километров прбегаемых мальчиков: ');
Read(S);
t:=S/v;
WriteLn('Время потраченое мальчиком на пробежку = ',t,' час(ов)');
end.
</span>
1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты Кг');
for i:=1 to round((fk-f0)/h)+1 do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
while f<fk do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
repeat
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.
Результат:
Фунты Кг
1.0 0.400
1.5 0.600
2.0 0.800
2.5 1.000
...
9.0 3.600
9.5 3.800
10.0 4.000
Program qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
I=i*K
i=I/K=366*8(переводим из байт в биты)/732=4
N=2^i=2^4=16
Ответ 16