Var a,b,c,d:integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c:=a; d:=b; if a<b then while b<>1 do begin a:=c*a; b:=b-1; writeln(a); end else while a<>1 do beginb:=d*b; a:=a-1; writeln(b); end; end.
1. запрашиваем первое число 2. получаем первое число 3. запрашиваем второе число 4. получаем второе число 5. приравниваем первое число некоторой переменной. 6. приравниваем второе число некоторой переменной. 7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. выводим результат на экран. 8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли. выводим результат на экран.
В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure MakeFile(path:string); // не относится к заданию, создает файл Text со 100 числами begin WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString)) end;
begin MakeFile('MyFile1.txt'); // теперь у нас есть текстовый файл из 100 случайных чисел // собственно, решение var n:=ReadInteger('Укажите количество чисел:'); var a:=ReadLines('MyFile1.txt').Take(n).ToArray; Writeln('Исходная последовательность'); a.Println; Writeln('Результирующая последовательность'); a:=a.OrderBy(x->x.Last).ToArray; a.Println; WriteAllLines('MyFile2.txt',a); end.
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
c:=a;
d:=b;
if a<b then
while b<>1 do
begin
a:=c*a;
b:=b-1;
writeln(a);
end
else
while a<>1 do
beginb:=d*b;
a:=a-1;
writeln(b);
end;
end.
1. запрашиваем первое число
2. получаем первое число
3. запрашиваем второе число
4. получаем второе число
5. приравниваем первое число некоторой переменной.
6. приравниваем второе число некоторой переменной.
7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли.
выводим результат на экран.
8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли.
выводим результат на экран.