Перевести код с pascal в с++ 1)var* n: integer; begin* write('введите число '); * readln(n); * if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod then write('ответ положительный') else write('ответ отрицательный'); end. 2)var a: integer; begin * *readln(a); * * * if (a mod 10+a div*10> 10) and(a mod 10+ a div 10< 100) then * * * * * *writeln('двузначное') * * * else writeln('не двузначное'); if a mod 10+a div 10> a then * * writeln('больше') else writeln('не больше'); end. 3)var n,s,a: integer; begin repeat write('введите число n: '); readln(n); until n in [10..99]; write('введите число a: '); readln(a); s: =(n div 10)+(n mod 10); if s mod 3 = 0 then writeln('сумма цифр кратна 3') else writeln('сумма цифр не кратна 3'); if s mod a = 0 then writeln('сумма цифр кратна ',a) else writeln('сумма цифр не кратна ',a); end.

арана19    3   26.09.2019 22:10    0