Предмет: Информатика,
автор: Enterpice
Нужна ваша помощь для создания программки в FP( free pascal) ,даю 100 балов за правильно сделанную работу
Приложения:

duracell107:
Я бы с радостью, но... Можно хотя бы краткую версию задания на русском языке?
Ответы
Автор ответа:
1
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.
Похожие вопросы
Предмет: Математика,
автор: easygirl11
Предмет: Математика,
автор: Ullyakk
Предмет: Математика,
автор: ivanfomencuk3
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: помогите764