Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Урок 4 задача 4: решить в целых числах уравнение ax=b
//fpc 3.0.0 // a * x = b: x = b / a program HelloWorld; var a, b, x : integer; begin readln(a,b); if ( a = 0 ) and ( b <> 0 ) then writeln('no solutions') else if ( a = 0 ) and ( b = 0 ) then writeln('many solutions') else if b = 0 then writeln('x=0') else if ( b mod a ) <> 0 then writeln('no solutions') else writeln ('x = ', b div a) end.
run
|
edit
|
history
|
help
0
Huong11a2@
Игра НИМ
For6
the answer is the last result
135
For10
Урок 6. Задача 9 (1533). Два самых маленьких числа
подсчёт символов и цифр пока не точка
Elevador Versão Pascal StringList
Tri 1.0