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()
2
напишите программу, которая позволит проверять пароль
на сложность. воспользуйтесь строковыми , описанными в разделе 4.7.1. string methods (
org/3.6/library/stdtypes.html#str.isupper).
проверку пароля следует проводить по таким критериям:
1. длина: от 5 символов.
2. буквы латинского алфавита в верхнем и нижнем регистре: a, a, z, z.
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;
B: Array[1..100] of integer;
C: Array[1..100] of integer;
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(A[i]);
end;
Writeln('Вводится второй массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(B[i]);
end;
For i:=1 to s do begin
If A[i]>B[i] then C[i]:=A[i]
else C[i]:=B[i];
If C[i] mod 2=1 then h:=h+1;
If C[i] mod 2=0 then g:=g+1;
end;
Writeln('Количество нечётных элементов в массиве:',h);
Writeln('Количество чётных элементов в массиве:',g);
end.