Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите перевести с паскаля на с++
uses crt;
var x,y,i:integer;
begin repeat begin
writeln(vvedite 2-oe chislo);
readln(i); if (i>99)or(i<10) then writeln(vv 2-xzn chislo) else begin
x:=i mod 10;
y:=i div 10;
if ((x=4) or (x=7) or (y=4) or (y=7))
then
writeln(vhodiat 4, 7)
else
writeln(ne vhodiat 4, 7);
if (x=3) or (x=6) or (x=9) or (y=3) or (y=6) or (y=9)
then
writeln(vhodiat 3, 6, 9)
else
writeln (ne vhodiat 3,6,9);end;end;until i=0;
end.

Ответ оставил Гость

См. файл во вложении