Регистрация
nbkmrf
17.01.2023 15:33
Информатика
Есть ответ 👍

Даны числа a и b найти общие делители p.s. на паскале

181
239
Посмотреть ответы 2

Ответы на вопрос:

nikitkaandreev1
nikitkaandreev1
4,5(4 оценок)
Var   a,  b, i: integer; begin   readln(a, b);   for i: =1 to max(a, b) do     if (a mod i = 0) and (b mod i = 0) then       write(i, ' '); end.
fanfa
fanfa
4,6(82 оценок)
Var a,b,x,y,z: integer;   begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); z: =b; if b< 0 then z: =-b; for y: =1 to z do  begin   x: =x+a;   end; if b< 0 then x: =-x; writeln('произведение чисел = ',x); end. проверка по входным данным на фото

Популярно: Информатика