ПЕРЕВЕДИТЕ В program zz1; var v, s, k, a:real;// задаем переменные действительного типа begin write( - id2037067220201106 от KoteikaOneLove 06.11.2020 21:51

Question

Информатика: ПЕРЕВЕДИТЕ В program zz1; var v, s, k, a:real;// задаем переменные действительного типа begin write( введите заданное действительное число a ); // вводим число с клавиатуры read(a); k:=a * a; // первая операция возведения в квадрат s:=k * k; // вторая операция возведения в квадрат v:=s * s; // третья операция возведения в квадрат write(v:7:3); // выводим ответ end. k:=a * a; // первая операция возведения в квадрат s:=k * k; // вторая операция возведения в квадрат v:=s * s; // третья операция возведения

KoteikaOneLove · Accepted Answer

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( сумма его делителей...

MOGZ ответил