Сотравьте к этому условие задачи. Var n,s:integer; begin write( vvedite n: ); readin(n); s:=0; repeat - id2096695520200529 от Dirolling 29.05.2020 01:48

Question

Информатика: Сотравьте к этому условие задачи. Var n,s:integer; begin write( vvedite n: ); readin(n); s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; write ( otvet: s= ,s); end.

Dirolling · Accepted Answer

#include iostream int gg(int k, int p, double m){ p = (k = p) ? p : p / k; return (m * 2 * p);}int main(){ int k, p; double m; std::cout Сколько котлет можно одновременно положить на сковороду ? ; std::cin k; std::cout Сколько минут жарится одна сторона котлеты ? ; std::cin m; std::cout Сколько котлет вы будете жарить ? ; std::cin p; std::cout p котлет пожарятся с двух сторон минимум за gg(k, p, m) минут ;}...

Сотравьте к этому условие задачи. Var n,s:integer; begin write('vvedite n:'); readin(n); s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; write ('otvet: s=',s); end.

MOGZ ответил