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

Найти сумму чисел 1/2+1/4+1/6+1/8++1/16 составить программу по информатике.!

👇
Ответ:
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 1.To(8).Select(t->1/(2*t)).Sum.Println;

end.

1.35892857142857 Пояснения

1.To(8) создает последовательность из чисел 1, 2, 3, .. 8.

.Select(t->1/(2*t)) преобразует каждый элемент этой последовательности по формуле 1/(2t), получая последовательность нужных нам дробей.

.Sum находит сумму этой последовательности, а затем .Prinln выводит результат.

4,4(55 оценок)
Открыть все ответы
Ответ:
aIinakormiIkina
aIinakormiIkina
18.01.2022
Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end. 
4,6(14 оценок)
Ответ:
irinalove2
irinalove2
18.01.2022

3:

n = int(input('Введите число элементов-'))

s = 0

a = list(map(float, input().split())) #создаём список из строки, интерпретируя введённые через пробел значения как float

for i in range(n):

 if a[i] > 0: #проверяем i-й элемент массива, больше ли он нуля

   s+=1 #инкрементируем счётчик на 1

print('Сумма положительных элементов равна=',s)

4:

from random import randint #подключаем метод randint из библиотеки random

n = int(input('Введите размерность квадратной матрицы-'))

s = 0

a = [[randint(-20,20) for j in range(n)] for i in range(n)] #создаём квадратную матрицу размерностью n, элементы которой являются случайными целими числами от -20 до 20

print(a)

for i in range(n):

 for j in range(n):

   if a[i][j] < 0: #проверяем элемент на знак

     s+=1 #инкрементируем счётчик

print('Количество отрицательных элементов-',s)


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