Если надо программу для поиска такого числа, то как вариант: //pascal var i: integer; begin for i: =10 to 99 do if (i=(i div 10 * i mod 10) *3) then writeln(i); end. ответ: 1524
Спасибо
Ответ дал: Гость
письменность китая похожа на египетскую письменность.
так как основана на иероглифах.
Ответ дал: Гость
program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.
Популярные вопросы