Нужна ваша для создания программки в fp( free pascal) , 100 за правильно сделанную работу
ritailicheva0
3
09.11.2019 11:58
0
Другие вопросы по теме Информатика
JanetJackson5
14.05.2020 06:43
olhkasianchuk
14.05.2020 06:44
тома510
14.05.2020 06:44
SONichka23
28.12.2020 13:45
dilfuza2105
28.12.2020 13:45
zanna74
28.12.2020 13:43
grigorijperever
04.02.2022 22:46
HelpMePleaseaaaaa
25.09.2019 20:08
Rozo4ka1mr
25.09.2019 21:20
Популярные вопросы
- Какие независимые государства образовались после распада советского союза в...
1 - Примеры высказываний, предложений, в которых используется слово ,,народ ....
2 - Вателье сшили 15 костюмов, расходуя на каждый 3м50см шерстяной ткани. на эти...
2 - Вклассе 42 ученика в кружке занимаются 3\7 всех учащихся а в спортивной секции...
2 - По уравнению реакции горения метана ch4 + 2o2 = co2 + 2h2o + 890 кдж вычислите...
1 - На что надо поделить 12 что бы получился ответ 0.6...
3 - Какая из перечисленный африканских стран не была колонией в 1950г? 1)алжир...
1 - Втреугольнике авс угол а= 50 градусов. угол с= 40 градусов. найдите величину...
1 - Встарших классах 120 учащихся. из них 85% работали летом на ферме. сколько...
1 - 1)в первом гараже стоит 7 автомобилей ,во втором в 4 раза больше .сколько автомобилей...
2
Begin
var A:=ReadInteger();
var B:=ReadInteger();
var x1,x2: integer;
var x:integer;
x:=2;
while (x <= 2*10 ** 9) do
begin
if((x mod A=1) and (x mod B=B-1)) then
break;
x+=1;
end;
Writeln(x);
End.