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

Кто такой эйлер в честь которого была названа графическая схема

👇
Ответ:
Ульянатв
Ульянатв
22.03.2021
Леона́рд Э́йлер — швейцарский, немецкий и российский математик и механик, внёсший фундаментальный вклад в развитие этих наук.
4,7(81 оценок)
Открыть все ответы
Ответ:
irinalove2
irinalove2
22.03.2021

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 оценок)
Ответ:
Subject338
Subject338
22.03.2021
Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
i:=i+1;    
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat    
Begin    
i:=i+1;    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.
4,6(22 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ