<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Наливаем 4 литра =>7 потом с нова 4=>7 и остается один литр в 4
делаем такие же операции и один литр в 7 литров а потом два раза по 4 литра туда и останется ведре 2 литра
а потом такие же операции как 2 литра переливаем их 7 литров а затем полный 4 литра получается 6
Var
N,S,d:integer;
Begin
S:=0;
Write('N = ');ReadLn(N);
For d:= 1 to N do
if N mod d = 0 then S:=S+d;
WriteLn('S = ',S)
End.
Алгоритм работает, если верхние края стен расположены на одном уровне:
использовать Робот
алг
нач
нц пока справа стена
закрасить
вверх
кц
нц пока справа свободно
вправо
кц
вниз
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вниз
кц
кон
Var a, b, c, x, y: Integer;
Begin
WriteLn('Введите коэффициенты a, b, c: ');
Read(a, b, c);
WriteLn('Введите координаты точки x, y: ');
Read(x, y);
If y = a * x * x + b * x + c Then WriteLn('Принадлежит')
Else WriteLn('Не принадлежит')
End.