Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
я считаю что серверов 2) 10 000 000
var a: array[0..10] of integer;
i,x: integer;
begin
read(x);
randomize;
for i : = 1 to 10 do begin
a[i]: =random(4);
if a[i]=x then writeln('a[',i,']');
end;
end.
var x: array[1..10] of real; n: integer; begin for n: =1 to 10 do begin x[n]: =power(3,n)-5; writeln(x[n]); end; end.
вот программа.
видим на рисунке прямоугольник
пишем
*длина
*ширина
*координаты центра
*угол поворота
*цвет
*цвет заливки
методы
*площадь
*нарисовать
*повернуть
и тд
Популярные вопросы