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

1.составить программу вычисления суммы s=1+1/2+1/3+1/4+ | s= 1+1/2+1/3+1/4+1/n 2.вычислите значения выражения (1+2) * (1+2+3) * (1+2+3+4) * (1+2+3+) решить в pascal abc.

👇
Ответ:
rulmich1203p0dlzb
rulmich1203p0dlzb
19.02.2022
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.

Пример:
n = 5
s = 2.28333333333333

2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
 begin
 i:=i+2;
 a:=x*x*a;
 s:=a/i;
 end;
writeln('s = ',s);
end.

Результат:
x = 3
s = 16104.2727272727
4,5(87 оценок)
Ответ:
hdhhxhd662
hdhhxhd662
19.02.2022
Program n1;
var a,n:integer;
    s:real;
begin
s:=0;
write('введите число n : ');
readln(n);
for a:=1 to n do begin
s:=s+(1/a);
end;
writeln('сумма чисел от 1 до 1/',n,' = ',s);
end.
ввод :4;
вывод: 2.08333333333333;

program n2;
var s,pr:double;
    a:integer; begin
s:=1;
pr:=1;
for a:=2 to 10 do begin
s:=s+a;
pr:=pr*s;
end;
writeln('pr = ',pr);
end.
вывод: pr = 141455160000
4,8(58 оценок)
Открыть все ответы
Ответ:
Liza201713
Liza201713
19.02.2022

#include <iostream>

#include <vector>

using namespace std;

int am_dig(int k){

   int res = 0;

   while(k > 0){

       res++;

       k /= 10;

   }

   return res;

}

double average(vector<double> a){

   double sum = 0;

   for(auto i: a)

       sum += i;

   return sum/a.size();

}

int main() {

   vector<double> a;

   double x = 1;

   while(x != 0){

       cin >> x;

       if(am_dig(x) == 3)

           a.push_back(x);

   }

   if(a.size() == 0)

       cout << "NO";

   else

       cout << average(a);

}

4,7(77 оценок)
Ответ:
kelyansky
kelyansky
19.02.2022

const

a : array[1..10] of integer = (12, 5, 4, 1, 9, 7, 8, 2, 3, 2);

var k, _counterW, _counterS: integer;

begin

_counterS := 0;

_counterW := 0;

for k := 1 to 10 do

   begin

   if (a[k] = 12) or (a[k] = 1) or (a[k] = 2) then

       _counterW := _counterW + 1

   else if (a[k] = 6) or (a[k] = 7) or (a[k] = 8) then

       _counterS := _counterS + 1;

   end;

writeln('Количество родившихся летом:', _counterS);

writeln('Количество родившихся зимой:',_counterW);

if _counterW > _counterS then

   writeln('Зимой родилось большее количество учащихся!')

else if _counterS > _counterW then

   writeln('Летом родилось большее количество учащихся!')

else

   writeln('Летом и зимой родилось одинаковое число учащихся!');

end.

4,4(3 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ