Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
Вообщем тему эту давно делал, но попробовать стоит...
дано:
50 стр; 40 строк; 60 симв; N=256
реш:
60*40*50=120000 симв в (книге вообще)
256=2^8 значит 1символ=8бита
120000*8=960000бит
можно в более весомую единицу перевести:
960000\8=120000 байт
120000\1024=17.1875кб
дальше думаю не стоит