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.
Египтян2004
30.03.2022
Такое уже было. я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) только первых три 1: var p: array[1..10] of integer; i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> '); readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer; i: integer; s: integer; count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0) thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer; i: integer; crat: integer; id: integer; begin for i: =1 to 10 do begin read(arr[i]); crat: =arr[i] mod 3; if(crat = 0) then begin id: =arr[i]; if(arr[i] = id) then writeln('id = ', i: 2); end; end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Из слова информатика надо придумать новое слова на казахском