//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Эм... Очень глупые вопросы, либо не правильно написаны но вот :
2) Сережа приходит в школу в 8 часов
3) Названия городов пишутся с Заглавной буквы: Москва Киев Сочи
4) Дробь 3/8 ПРАВИЛЬНАЯ
5) Эм, ну Тополь тоже значит поглощает углекислый газ
Feniy
Функция нахождения индекса наименьшего элемента массива на языке Си:
int getMin(int* X, int size) {int i, m = 0;for(i = 0; i < size; ++i)if(X[i] < X[m]) m = i;return m;}
X - массив, size - размер массива
Решение для Pascal.
Запускаем цикл от 0 до 9 (всего 10 повторений - 10 чисел) и каждый повтор берём число n := 2*i + 1, которое будет гарантированно нечётным. Затем выводим само число и его куб