N=2^i, i=9, N=2^9=512 , числа находятся в диапазоне от 1 до 512
Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
<span>end.
значения выводить можно через отдельный цикл
</span>var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.
program open_s;
var
y,a,b,c:real;
begin
writeln('Введи значение a');
readln(a);
writeln('Введи значение b');
readln(b);
writeln('Введи значение c');
readln(c);
y:=sqrt(a-c)-((sqr(b)+2)/c);
write('Ответ: ',y);
end.
Совершенно бесплатное порево
Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы):
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны:
if (a = b) and (b = c) then
writeln('TRUE')
else
writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны:
if (a =b) or (b = c) or (a = c) then
writeln('TRUE')
else
writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей:
if (a + b > c) and (a + c > b) and (b + c > a) then
writeln('TRUE')
else
writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат:
if (a >= 0) and (b >= 0) then
writeln('TRUE')
else
writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?
