Сортировщик слайдов наверное
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b->');
if a.IsEven then Writeln('a+b=',a+b) else
Writeln('a*b=',a*b);
end.
11- Запрос физико-математический
12-3,4,5
Program long;
uses Crt;
const n=5;
type Vec=array [1..n] of integer;
var A, B, C: Vec;
i,j,k, Col: integer;
Pro: longint;
a1, a2: integer;
begin
ClrScr;
Randomize;
Col:=1; Pro:=1;
WriteLn ('Massiv A:');
for i:=1 to n do
begin
A[i]:=500+random(2000);
Write(A[i]:6);
if A[i] >1000 then
begin
B[Col]:=A[i]; Col:=Col+1;
end;
end; WriteLn;
Col:=Col-1; WriteLn;
WriteLn ('Massiv B:');
for i:=1 to Col do
WriteLn(B[i]);
WriteLn;
k:=1;
for i:=1 to n do
begin
a2:=B[i] mod 10;
a1:=B[i] div 1000;
if sqr(a1)<sqr(a2) then
begin
C[k]:=B[i];
k:=k+1;
end;
end;
for i:=1 to k-1 do
Pro:=Pro*C[i];
WriteLn ('Pro=',Pro);
ReadLn;
end.
В номерах не понятно где робот изначально находиться!
в 1 номере я поставил нач.точку робота в самый первый закрашенный правый квадрат, во 2 номере в самый низ,в квадрат где заканчивается палка)
1 номер:
использовать Робот
алг
нач
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа не свободно
закрасить
вниз
кц
кон
2 номер:
использовать Робот
алг
нач
нц пока сверху свободно
вверх
закрасить
кц
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока сверху не свободно
закрасить
вправо
кц
вверх
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
остальное сам делай,мне лень)
