Var a,b,c,d,i,f,g,h,n:integer; begin writeln('введите число'); readln(a); g:=0; c:=0; d:=0; i:=0; f:=0; writeln('введите число для сравнения'); readln(h); for b:=a downto 1 do begin if a mod b = 0 then writeln('его делитель ==>',b); if a mod b = 0 then c:=b+c; if a mod b = 0 then if b mod 2 = 0 then d:=d+b; if a mod b = 0 then if b mod 2 <> 0 then i:=i+1; if a mod b = 0 then f:=f+1; if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i f a mod b = 0 then if b>h then n:=n+1; end; writeln('сумма его делителей ==>',c); writeln('сумма его чётных делителей ==>',d); writeln('количество нечётных делителей ==>',i); writeln('количество чётных делителей ==>',g); writeln('количество делителей ==>',f); writeln('количество делителей больших b ==>',n); end.
Program kursz5; //Название программы uses crt; //Подключение модуля crt const n=10; //Определение неизменяемых переменных const m=10; var //Описание переменных i,j,max,min:integer; a:array[1..n,1..m] of integer; //(Ввод) Объявление массива begin randomize; //Подключение датчика случайных чисел for i:=1 to n do //Ввод чисел для переменных массива for j:=1 to m do a[i,j]:=random(100); //Ввод случайных чисел max:= a[1,1]; //Присвоение к max элементах [1,1] min:= a[1,1]; //Присвоение к min элементах [1,1] for i:=1 to n do //Будем делать пока i < n begin for j:=1 to m do //Будем делать пока i < m begin if a[i,j] > max then // если элемент массива больше max будем делать что ниже max:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не вывод if a[i,j] < min then //если элемент массива меньше min будем делать следующее min:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной min write(a[i,j]:5); - Здесь уже вывод end; writeln; end; writeln(); writeln('max=',max,' min=',min); //Вывод max и min значений end.
232+18=250
250*2=500
500-18=482