1вы находитесь в квест-комнате по мультфильму wall-e! чтобы выбраться из комнаты, необходимо выполнить такие шаги: 1. узнайте длину строки s текста и выведите это значение в консоль. 2. выведите весь текст в нижнем регистре. 3. кто-то допустил ошибку и некорректно написал имя робота wall-e! замените все вхождения слова walle на wall-e. 4. наконец, подсчитайте, сколько раз в тексте было использовано слово earth. код к 1: s = "in a distant, but not so unrealistic, future \ where mankind has abandoned earth because it has \ become covered with trash from products sold by \ the powerful multi-national buy n large corporation, \ walle, a garbage collecting robot has been left to \ clean up the mess. mesmerized with trinkets of earth's \ history and show tunes, walle is alone on earth except \ №7 2 for a sprightly pet cockroach. one day, eve, a sleek \ (and dangerous) reconnaissance robot, is sent to earth to \ find proof that life is once again sustainable." # step 1 len() # step 2 ? .upper() # step 3 ? .replace(*, *, *) # step 4 ? .count()

Ну, если я правильно понял суть задания, то:

osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду:   Ocenka()

Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:

Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub

Ну впринципе все) Скрин програмки прилагается)

PROGRAM ThreeNumbers;

VAR

   numberOne : DOUBLE;

   numberTwo : DOUBLE;

   numberThree : DOUBLE;

   sum : DOUBLE;

   product : DOUBLE;

   average : DOUBLE;

BEGIN

   WriteLn('Введите три числа:');

   Write('Число 1 -->');

   ReadLn(numberOne);

   Write('Число 2 -->');

   ReadLn(numberTwo);

   Write('Число 3 -->');

   ReadLn(numberThree);

   sum := numberOne + numberTwo + numberThree;

   product := numberOne * numberTwo * numberThree;

   average := (numberOne + numberTwo + numberThree) / 3.0;

   WriteLn('Сумма = ', sum:6:1);

   WriteLn('Произведение = ', product:6:1);

   WriteLn('Среднее = ', average:6:1);

END.