1. Информатика
  2. Даны числа a и b найти общие

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

Евгеха001 Евгеха001    3   26.06.2019 04:10    0

Ответы
Малой98 Малой98  02.10.2020 11:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gyon gyon  27.10.2020 08:46
умоляюю надо решать в Пинтоне и отправьте мне скриншот на этот номер +996776100505​...
Ctatuetca Ctatuetca  27.10.2020 08:46
Информатика нужна ваша задания. С решением подалуйста!...
hyrshkananastasiya hyrshkananastasiya  01.12.2019 18:06
40 .напишите программу, которая выводит на экран в строку через пробел массив из 10 чисел сгенирированных случайным образом, а затем находит в данном массиве сумму нечетных чисел....
xexi xexi  01.12.2019 18:06
Pascalabc (всё должно быть в одной программе)1. посчитать сумму всех цифр в числе2. посчитать количество одинаковых пар цифр в числечисло 1262132136...
barenzi barenzi  01.12.2019 18:06
Решите ребус. тема структура интернета...
mranishanbaev mranishanbaev  01.12.2019 18:07
Сколько решений имеет уравнениеизвините за кривую фотографию​...
huifufjvJf huifufjvJf  01.12.2019 18:07
Elaborati un program care citeste de la tastatura un sir de n numere naturale si afiseaza pe ecran lungimea celui mai lung subsir de zerouri....
madoleh madoleh  01.12.2019 18:10
Впрограмме, представленной ниже допущены ошибки. найди их все, запиши правильную строку и пояснение ошибки. для удобства строки пронумерованы. 1)var mass : aray [1..15] of integer;...
LinaMat LinaMat  01.12.2019 18:12
1(ну если кто хочет может с другими тоже) всё в фотографии....
sona238 sona238  01.12.2019 18:14
Число 3563 перевести в двоичную систему...

Популярные вопросы