Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
Var
n,i,s:integer;
begin
Write('n='); Read(n);
i:=7; s:=0;
while i<=n do begin
s:=s+i;
i:=i+5
end;
Writeln('S=',s)
end.
1) Var i:Integer;
A:array[1..10]of integer;
Begin
Write('Введите пять цифр') ;
For i:=1 to 5 do begin
Read(a[i]) ;end;
Write('Кратные двум') ;
For i:=1 to 5 do begin
If a[i] mod 2 =0 then write(' ', a[i]) ;
End;
Write('кратные четырем') ;
For i:=1 to 5 do begin
If a[i] mod 4 =0 then write(' ', a[i]) ;
End;
End.
2)Var a, b, k, i:integer ;
Begin
Write(' a=') ;read(a) ;
Write(' b=') ;read(b) ;
If (a>0)and(b>0) then k:=0;
If (a>0)and(b<0) then k:=abs(b) ;
If (a<0)and(b>0) then k:=abs(a) ;
If (a<0)and(b<0) then k:=abs(a-b) ;
Write('колво отрицательных чисел ', k) ;
End.
4000бит/с / 8= 500байт/с
1Мб=1024Кбайта
1Кбайт=1024байта
1мб=1048576 байт
1048576 / 500 ~ 34 минуты 57 ceк
var inch:integer;
begin
writeln('* alphaues is thinking... *');
writeln;
writeln('*******************************');
for inch:=1 to 20 do
writeln('* ',inch,' inches = ',inch*2.54,' *');
writeln('*******************************');
end.