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

Жазылған сөз (әдеби туындылар, шығарма
з (әдеби туындылар, шығарма, құжат және т.с.с.
н үзінділері мен бөліктері) деп аталады (орыс тілін-
Яғни олардың үзінділері мен бе
дегі мағынасы).
4 - бұл мағынасы бойынша өзара бір-бірімен байланыст
немесе сөздер реті (орыс тіліндегі мағынасы)
сі немесе бірнеше сөйлемдерден құралған жазба сөзінін бөлігі
... деп аталады (орыс тіліндегі мағынасы).
Тігінен:
2. - уақыт пен кеңістікте ақпараттарды жіберуге арналған және
арнайы жазылған ақпараттар енген материалдық объект (орыс
тіліндегі мағынасы).
5. ... – бұл мақала мен түсініктемелерді жазуда қолданылатын
негізгі мәтіннен тыс ақпарат көздеріне сілтеме (орыс тіліндегі
мағынасы).
7. Тілдің негізгі құрылымдық бірліктерінің бірі ... деп аталады

👇
Открыть все ответы
Ответ:
irochka320969
irochka320969
09.05.2022

#include <iostream>

#include <cmath>

using namespace std;

int main() {

   ios::sync_with_stdio(0);

   cin.tie(0);

   double b, res = 0;

   cin >> b;

   for (int i = 1; i <= b; i++)

   {

       res += 1/(pow(i,2));

   }

   cout<<res;

}

Как по мне - это идеальное решение, но жаль на C++)

Не забывай, что на этом сайте можно не только под Pascal прогать))

Если тебе нужно отправить файл этой проги в тестирующую систему, но у тебя нет C++, то можешь в комментарии написать свой vk, скину тебе cpp файл с кодом, а ты его в тестирующую систему пошлёшь)

4,8(74 оценок)
Ответ:
Умару11
Умару11
09.05.2022
1) Program NoName;
Var i,m : integer; 
Begin 
read(m);
if m>31 then begin 
for i:=31 to m do 
 if (i mod 16) = 0 then writeln(i); 
end;
end.

2)Program NoName;
Var i,n,x,c : integer; 
Begin 
c:=1;
x:=0;
i:=0;
while i<5 do begin 
 if (c mod 13) = 0 then
 begin  x:=x+c; i:=i+1;
end; 
c:=c+1;
end; 
write(x); 
end.

3)Program NoName;
Var i,n,x,c : integer; 
Begin 
read(n);
c:=1;x:=1;i:=0;
while i<n do
begin 
if (c mod 11) = 0 then
begin  x:=x*c;
i:=i+1;
end;
c:=c+1;
end; 
write(x); 
end.

4)Program NoName;
Var i,m,x : integer; 
Begin
x:=0;i:=1;
while x<7 do begin 
 if (i mod 7) = 0 then
 begin  
writeln(i);x:=x+1;
 end;i:=i+1;
end;
end.
4,4(18 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ