Исправьте программу (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.

165

413

Посмотреть ответы 2

Ответы на вопрос:

kennysussus

Информатика

4,6(16 оценок)

Program project1; vara,b,i,s2,s1,k: integer; beginwriteln('a и b'); readln(a,b); if (a< > 0)and(b< > 0)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.

Сонька10Монька

Информатика

4,5(1 оценок)

На c++, если тебе надо считывание с файла, то ответь я переделаю. #include < iostream> using namespace std; int main(){ int a,b; cin> > a> > b; if((a+b)%3==0) cout< < (a+b)/3< < endl; else cout< < a+b< < endl; return 0; }