исправьте программу пожалуйста (lazarus)
program Project1;
var
a,b,i,s2,s1,k:integer;
begin
writeln('a и b');
readln(a,b);
if (a<>0)and(b<>0)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.
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад