Составьте алгоритмы управленИя чертежником , последний исполнениям которых будут получены следующие рисунки (только а

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

понадобится 24 секунды.

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.