Задание 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 \
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()
МОЖНО ПОДРОБНО!
Если знаете продолжения (Задание 2) напишите тоже.
PASCAL ABC
program z1;
var a,s:integer; //описание переменных
begin
readln(a); //вводим первое число
s:=0; //начальное значение суммы
while a<>0 do //условие ввода (ввод оканчивается нулем)
begin
if (a mod 10=4) and (a mod 6=0) then s:=s+a; //проверка двух условий: первая скобка - оканчивается на 5, вторая - кратно 6
readln(a) //заново вводим число
end;
writeln(s) //вывод суммы, когда весь цикл завершится
end.
P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается
Var
A:array[1..5] of integer;
i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
Begin
Read(A[i]);
if A[i] < 0 then O:=O+1
else if A[i] > 0 then P:=P+1;
End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.
Заполнение случайными числами:
Const
N = 5;
Var
A:array[1..N] of integer;
i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
if A[i] < 0 then O:=O+1
else if A[i] > 0 then P:=P+1;
End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.