var i,j:integer;
begin
for i := 1 to 4 do
begin
for j:=i to 4 do write('0');
writeln
end
end.
Ответ:
есть программа для такого решения
1) б)монитор
2) 10бит, 2байта, 20 байтов, 1010байтов, 1 Кбайт
3) 1,5*1024*1024*8=12582912/128000=98,4 сек
1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.