Var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
<span><span>while a <> b do
</span><span> if a > b then </span><span> a := a - b
</span><span> else </span><span> b := b - a<span>;
writeln('НОД первой и второй части: ', a);
end.</span></span></span>
Var
x, y, z: integer;
begin
writeln('Веедите значения x,y,z');
readln(x, y, z);
if z>(x+y) then
writeln('Решения нет')
else if z=min(x,y) then
writeln('Делать нчего не нужно')
else
writeln('Потребуется шагов: ', min(x, y)-z)
end.
5 раз больше не ту!!!!! а тут что так трудно
Примеры:
1)
Вышел на улицу - неполная
Вася вышел гулять на площадке перед домом в шесть часов вечера - полная
2)
Поставил два за поведение - неполная
Дворник ради шутки поставил два за поведение в дневник мальчика - полная.
Полезная:
В моей комнате лежит циркуль,который ты вчера искал
Неполезная:
У меня в комнате есть циркуль
понятная :(дайте мне перекись водорода) и непонятная :(дайте мне пероксид водорода