Леонид писал(а):
в IC - несколько строк.Можно лучше в IC? Так быстрее разобраться. Просто срок поджимает - мало времени
Леонид писал(а):
Yuriy, вторая задача - чистый 5 класс на нахождение наибольшего общего делителяВиноват
Всем спасибо за помощь!
------------ Дoбавленo:
Yuriy писал(а):
Можно лучше в IC?Уже написал на Паскале. Спасибо!
Ну вот, теперь всё готово!!!
------------ Дoбавленo:
Обобщаю решение первой задачи. Спасибо Леониду!
#pas
Uses CRT;
var
n,i,j,k,z,s:integer;
begin
clrscr;
Write('Vvedite n<100: ');
ReadLn(n);
for i:=0 to n div 10 do
for j:=0 to n div 5 do
for k:=0 to n div 2 do
for z:=0 to n do
if (i*10)+(j*5)+(k*2)+z=n then
begin
WriteLn('1 p.: ',z,', 2 p.: ',k,', 5 p.: ',j,', 10 p.: ',i);
s:=s+1;
z:=n;
end;
WriteLn('Vsego sposobov: ',s);
ReadKey;
End.
Поиск
Друзья
Администрация