Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.
Ответ дал: Гость
Писать иероглифы красиво и уметь писать их кистью с чернилами
Ответ дал: Гость
var s,i,n,a: integer;
begin
read(a,n);
s: =1;
for i : = 1 to n do
s: =s*a;
writeln('a в степени n = ',s);
s: =1;
for i : = 1 to n do
s: =s*i;
writeln(s);
s: =0;
for i: = 1 to n do
begin
read(a);
s: = s + a;
end;
writeln('среднее арифметическое = ',s/n)
end.
Ответ дал: Гость
а) наличие электромагнитного излучения, сrt б) ухудшение качества изображения при изменении угла обзора, crt в) компактные размеры lcd г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt д) формирование изображения с лучей электронных пушек, crt е) меньший вред для здоровья человека при работе. lcd
Популярные вопросы