Информатика, опубликовано 2018-08-22 18:25:44 by Гость
Исправьте программу пожалуйста (lazarus) program Project1; var a,b,i,s2,s1,k:integer; begin writeln(a и b); readln(a,b); if (a0)and(b0)then; k:=a*b; i:=k; while i>0 do begin s1:=i mod a; s2:=i mod a; end; if s1=0 and s2=0 than; writeln(k=i); i:=i-1; end.
Ответ оставил Гость
Program Project1;vara,b,i,s2,s1,k:integer;beginwriteln(a и b);readln(a,b);if (a0)and(b0)then;k:=a*b;i:=k;while (i>0)dobegini:=i-1;if (i mod b = 0) and (i mod a = 0) then break;end;writeln(i);end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на