1. Современный вариант (коротко, быстро и наглядно, кто знает). Так уже начали учить в некоторых школах.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ArrRandom(ReadInteger('n='),1,300).Println. Where(k->(k>=100) and ((k mod 100) div 10=0)); if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов') end.
2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.
const nn=100; var i,n,max:integer; a:array[1..nn] of integer; begin Write('n='); Read(n); Randomize; max:=0; for i:=1 to n do begin a[i]:=Random(300)+1; Write(a[i],' '); if (a[i]>=100) and ((a[i] mod 100) div 10=0) then if a[i]>max then max:=a[i] end; Writeln; if max>0 then Writeln(max) else Writeln('Нет элементов') end.
Для вставки рисунка из файла нужно выбрать команду “Вставка”->“Рисунок”->“Из файла”. В диалоговом окне необходимо выбрать нужный файл. В раскрывающемся списке кнопки “Вставить” имеется возможность выбора вставки рисунка: “Вставить”, “Связать”. По умолчанию Word внедряет рисунки в документ (“Вставить”). При внедрении объекта он становится частью документа. При этом изменение рисунка в исходном файле не приводит к изменению его в документе Word. Можно уменьшить размер файла путем связывания (“Связать”). При этом изменение рисунка в исходном файле приводит к изменению его в документе Word. Рисунок можно вставить со сканера или камеры (команда “Вставка”->“Рисунок”->“Со сканера или камеры”). Word содержит большое количество встроенных рисунков. Для их просмотра и вставки в документ нужно воспользоваться командой “Вставка”->“Рисунок”->“Картинки”.
Язык Python 3.7
Думаю по коду должно быть все понятно , но если возникнут вопросы
постараюсь ответить
1)
x = int (input())
print(6*x*(x+2)-(x+4))
2)
x = int (input())
if x>0:
print((x**2)+(2*x))
else :
print(x-3)
3)
x=13
i=10 #Счетчик
while i<100: #Цикл будет выполнятся пока i меньше 100
print(x*i)
i=i+1 #Обновление счетчика
4)
x=0 #Создание счетчика
while x<21:
print(9*(x**2)+6*x)
x=x+2 #Обновление счетчика
5)
x1=int(input())
x2=int(input())
x3=int(input())
if x1==x2 and x2==x3:
print("Треугольник равносторонний")
else:
print("Треугольник не равносторонний")
6)
a=int(input()) # Ввод значения
for i in range (1,a+1): #Создание цикла , в котором перебираются
print(i**2) числа от 1 до a