На координатній площині накресли трикутник ОАВ з вершинами О (0; 0), А (4; 0)
а в (0; 3). Виконай поворот трикутника на кут -100° навколо точки О

var b,i,z,k: integer;

a: array[1..10000] of integer;

begin

read(b);

z: =0;

k: =0;

while b> 0 do

begin

z: =z+1;

a[z]: = b mod 10;

b: =b div 10;

end;

for i: =2 to z-1 do

if a[i]=a[i-1] or a[i]=a[i+1] then

k: =1;

if k=1 then writeln (‘да’)

else writeln (‘нет’);

end.

второй способ:

var a,b,c: integer;

begin

read(a);

k: =0;

c: =10; // это должно быть обязательно число, но не цифра

while a > 0 do

begin

b: =a mod 10;

a: =a div 10;

if b=c then k: =1;

c: =b;

end;

if k=1 then writeln (‘да’)

else (‘нет’);

end.

Пошаговое объяснение:

нам нужно найти число > 60, на которое без остатка поделится количество каждого сорта овощей

для начала разложим числа 132 и 330 на простые множители, выберем одинаковые и перемножим их - таким образом найдем НОД(132;330)

132 = 2 * 2 * 3 * 11

330 = 2 * 3 * 5 * 11

НОД(132; 330) = 2*3*11 = 66 - вот это количество порций салата

а другие делители нам не подходят, потому что их произведение будет  < 60 (2*3 = 64; 2*11 = 22; 3*11 = 33)

это значит, что каждый сорт овощей поделится на 66 порций салата без остатка.

и тогда мы можем подсчитать количество овощей каждого сорта в порции салата

огурцы:  132/ 66 = 2

помидоры: 330 /66 = 5

ответ

овощей привезли на 66 порций