М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kobelevmiklip08h5g
kobelevmiklip08h5g
22.07.2020 07:20 •  Информатика

Нарисовать вычислить сумму первых k слагаемых ряда : 1+1/(2^2)-1/(3^2)+1/(/(k^2) вот решение. var k,z,i: integer; s: real; begin readln(k); z: =-1; s: =1; for i: =2 to k do begin z: =-z; s: =s+z/(i*i); end; writeln('s = ',s); end.

👇
Ответ:
Pelageya2091
Pelageya2091
22.07.2020
Блок-схема - в прилагаемом файле.
Нарисовать вычислить сумму первых k слагаемых ряда : 1+1/(2^2)-1/(3^2)+1/(/(k^2) вот решение. var k,
4,5(43 оценок)
Открыть все ответы
Ответ:
Diman4ik355
Diman4ik355
22.07.2020

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

4,6(25 оценок)
Ответ:
madina319
madina319
22.07.2020
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
4,6(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ