1. даны два натуральных числа m и n – числитель и знаменатель дроби m/n. требуется сократить дробь, насколько это возможно.

Var n,m,q,i: integer; f: boolean; begin read(m,n); f: =true; while f=true do begin f: =false; if m> n then q: =n else q: =m; for i: =2 to q do begin if (m mod i = 0) and (n mod i = 0) then begin m: =m div i; n: =n div i; f: =true; end; end; end; writeln(m,'/',n); end. по идее так, не проверял.

Var   a, b, i: integer; begin   write('введите значения a и b:   ');     read(a, b);       writeln('цикл for');     for i : = b downto a do write(i*i*i, ' ');   writeln();       writeln('цикл while');   i : = b;   while i > = a do   begin     write (i*i*i, ' ');     dec(i);   end;   writeln();       writeln('цикл repeat');   i: =b;   repeat     write(i*i*i, ' ');     dec(i)   until i < a   writeln(); end.

#include < iostream> int main() {     int64_t n;     // __int64 n; для visual studio   std: : cin > > n;   std: : cout < < n*n < < std: : endl;         return 0; } /** покажем, что количество равных треугольников равно n^2. обозначим ответ к как f(n). при n = 1 имеем f(n) = 1, так как треугольник не разрезается. переходим от n-1 к n. при переходе добавляется два нижних ряд треугольников. в одном n треугольников и они ориентированы так же, как и исходный треугольник. в другом -- n-1 треугольник, и они зеркально симметричны исходному треугольнику. итого, f(n) = f(n-1) + n + n-1 = f(n-1) + 2n-1. теперь заметим, что n^2 при n=1 равно 1^2 = 1; n^2 = (n-1 + 1)^2 = (n-1)^2 + 2(n-1) + 1 = (n-1)^2 + 2n-1. то есть f(n) = n^2. итого, искомое количество треугольников: n^2 */