Плюсы и минусы программ microsoft world и блокнота. подскажите .

Question

Информатика: Плюсы и минусы программ microsoft world и блокнота. подскажите .

Денис228ннпп · Accepted Answer

Решение, что называется, в лоб (далеко, очень далеко, не самое лучшее): var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer; begin write( s = ); readln(s); k1:=0; k5:=0; k10:=0; k50:=0;  k100:=0; k500:=0; k1000:=0; k10000:=0; while s =10000 do begin s:=s-10000; k10000:=k10000+1; end; while s =1000 do begin s:=s-1000; k1000:=k1000+1; end; while s =500 do begin s:=s-500; k500:=k500+1; end; while s =100 do begin s:=s-100; k100:=k100+1; end; while s =50 do begin s:=s-50; k50:=k50+1; end; while s =10...

MOGZ ответил