Program p_1;
uses crt;
var
a,b,c,P,S: real;
begin
clrscr;
write ('a=');
readln (a);
write ('b=');
readln (b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
S:=a*b/2;
writeln ('P=',P:5:2);
writeln ('S=',S:5:2);
readln ();
end.
program p_2;
uses crt;
var
x,s,N: integer;
begin
clrscr;
read (x,N);
s:=0;
while (x<>0) do
begin
s:=s+x mod 10;
x:=x div 10;
end;
if (s<N) then
writeln ('s<N, because ',s,'<',N)
else
writeln (s,' do not <',N);
readln ();
<span>end.</span>
Pascal (гдето так...)
program treska;
var a,i,k,b,b2,b3:integer;
begin
for i:=100 to 999 do
begin
a:=sqr(i);
k:=a-i;
b:=a-k;
if i=b then write (i,' ');
end;
readln
end.
45*80*120=432000 символа или байта информации. Можно перевести в биты: 432000*8=3456000 бит
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,1,99); a.Println;
Writeln('Среднее значение ',a.Average)
end.
<u>Пример</u>
22 18 94 79 69 25 23 95 84 40 63 75 78 54 87 50 24 77 37 79
Среднее значение 58.65
На можешь выбрать какую хочешь.