Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
Пойти в лес с топором
Найти ёлочку
Повернуться в сторону ёлочку
Подойти к ёлочке
Срубить ёлочку около основания
Взять ёлочку в области центра масс
Повернуться в сторону дома
Пойти домой
Получи 5(6.48) я верю в тебя (кст где ты учишься)
var
n,k,s,a,b,l,x,y,m,n1:integer;
Begin
readln(n,k,b,x,y,l,a,m,n1);
Write('а. ');
if(n mod 2 = 0) then
begin
a := n;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
if(s > k) then writeln('True') else writeln('False');
end
else writeln('False');
a := n;
s := 0;
Write('б. ');
while(a > 10) do
begin
a := a div 10;
inc(s);
end;
if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');
write('в. ');
a:= n;
while a>10 do
a:=a div 10;
if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');
write('г. ');
a:=n;
s := 1;
while a > 0 do begin
s := s * (a mod 10);
a := a div 10;
end;
if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');
write('д. ');
a := n;
s := 0;
while a > 0 do begin
s := s + a mod 10;
a := a div 10;
end;
if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');
End.
Https://studopedia.ru/3_177371_osnovnie-algoritmicheskie-konstruktsii-bazovie-algoritmi.html
<span>Б) используют пустой оператор ввода </span>
