Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Program ideone;
var xPos, {В данной переменной храним позицию по оси X} yPos {А в этой по оси Y} : real; {Переменные вещественного типа, что бы можно было вводить дробные значения} begin
Write('Enter x position: '); Readln(xPos); {Вводим переменную по X}
Write('Enter y position: '); Readln(yPos); {И по Y}
if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy} then begin Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ} end else {если же не попали, проверим другую} begin if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy} then begin Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение} end else begin Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем} end endend.
4 в 10 сс равно 4 в 16 сс
Чтобы 25 перевести в 16 сс раздели столбиком 25 на 16, то же самое и с числом 123
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.