• Авторизация


12.04.2012 3 задача, вложенные циклы. 12-04-2012 13:31 к комментариям - к полной версии - понравилось!


program Tpu;
uses crt;
var n,a,b,c,d,e:integer;
begin
write('4ucJlo? ');
read(n);
e:=0;
if n>100 then write('mHoro') else
for a:=0 to n div 10 do
for b:=0 to (n-a*10) div 5 do
for c:=0 to (n-a*10-b*5) div 2 do
for d:=0 to (n-a*10-b*5+c*2) do
if 10*a+5*b+2*c+d=n then begin
writeln('10*',a,'+5*',b,'+2*',c,'+',d,'=',n,' ');e:=e+1;
end;
writeln(e);
readln;
end.
вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник 12.04.2012 3 задача, вложенные циклы. | Jam316 - Дневник БМВвода | Лента друзей Jam316 / Полная версия Добавить в друзья Страницы: раньше»