#include <iostream>
<span>using namespace std;
</span>void mxd(int n) {
<span> int k,mx=0;
</span><span> do {
</span><span> k=n%10; n/=10;
</span><span> if (k>mx) mx=k;
</span><span> }
</span><span> while (n>0);
</span><span> cout<<mx<<endl;
</span><span>}
</span><span>int main() {
</span><span> int n;
</span><span> cout<<"number: "; cin>>n;
</span><span> mxd(n);
</span><span> </span><span /><span>system("pause");
</span><span> return 0;
</span><span>}
</span><span>
</span>
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
procedure Foo;
begin
var k:integer;
Read(k);
if k<>0 then begin Foo; Print(k) end
end;
begin
Foo;
end.
Частично и часто...спасибо за внимание.