558+417 в девятичной
1077 (это точно)
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /
//Во всех трех задачах вывел массив на экран, чтобы был виден результат, но если это не нужно, то уберите последний цикл for.
//Константы "х" и "у" - это диапазон генерации числа
//Язык Pascal
---------------------------------
1 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
Arr[i] := Random(x, y);
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
2 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
begin
while Arr[i] mod 2 = 0 do
Arr[i] := Random(x, y);
end;
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
3 задача:
Program Test3;
const Size = 8;
Var i: integer; Arr: array[1..Size] of integer;
Begin
for i := 1 to Size do
begin
Write('Введите ', i, ' элемент массива: ');
Readln(Arr[i]);
end;
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
uses Robot;
begin
Task('cif2');
while FreeFromRight do begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
end.
; i = I/k = 32