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

Составьте блок-схему и соответствующую программу на языке Python для выполнения следующих действий:
1) печатается таблица умножения на 9;
2) печатаются квадраты чисел от 10 до 1,
3) находится сумма целых чисел от 10 до 100;
4) вычисляется произведение четных чисел первого десятка;
5) исчисляется сумма дробей, знаменателями которых нечетные числа от 3 до 9; 6) определяется количество введенных предложений (предложения заканчивается точкой, восклицательным или вопросительным знаком)
7) определяется среднее значение всех элементов последовательности, которая завершается числом 0.

👇
Открыть все ответы
Ответ:
Tara2017
Tara2017
08.03.2021
В Visual Basic на форме нужно создать текстовое поле Label1
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F() As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F(m, m) ' Определяем размер массива
For i = 1 To m    ' Ввод данных
     For k = 1 To m
         t = "Vvedite element Matrix" & Str(i) & "," & Str(k)
         F(i, k) = InputBox (t)
     Next k
Next i
For i = 1 To m
     F(i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
     For k = 1 To m  ' Вывод строки данных через табуляцию
         Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
     Next k
     Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub
4,4(72 оценок)
Ответ:
SofStrelets
SofStrelets
08.03.2021
Var a,max,sum:integer;
    arr:array [0..2015] of integer;
    begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();

if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

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