Регистрация
DathVayolet
02.04.2020 04:27
Информатика
Есть ответ 👍

Даны целые числа a,b и n.требуется найти количество целых x таких, что 0< =х

103
356
Посмотреть ответы 3

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

scarletvalkiria
scarletvalkiria
4,5(10 оценок)
Program tapsirmac; var a,b,n,x,p: integer;   input,output: text; begin p: =0; assign(input,'c.in'); assign(output,'c.out'); reset(input); rewrite(output); read(input,a,b,n); for x: = 1 to n do begin if a*x mod n = b then   p: =p+1; end; write(output,p); close(input);   close(output);   end.
stars28082003
stars28082003
4,5(54 оценок)
Program   tapsirmac; var   a,b,n,x,p: integer; input,output: text; beginp: =0; assign(input,'c.in'); assign(output,'c.out'); reset(input); rewrite(output); read(input,a,b,n); for x: = 1 to n dobeginif a*x mod n = b   then   p: =p+1; end;   write(output,p); close(input);   close(output);   end.
Maaaaaria122
Maaaaaria122
4,6(12 оценок)

var a, b,s, p : integer; //Инициальзация переменных

begin

 writeln('Введите a и b.'); // Вывод текста

 readln(a,b); // Ввод переменных а, b

 s := a*b; // Считаем площадь

 p := 2 * (a+b); // Считаем периметр

 writeln('S=' + s); // Выводи площадь

 writeln('P = ' + p); // Выводим перимитр

end.

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