Программирование на python ( 30 ! )
тема: работа со строками
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()

#include <iostream>

#include <cmath>

#include <algorithm>

#pragma GCC optimize("Ofast")

#define ll long long

#define ld long double

using namespace std;

ll digits(ll a){

   ll c = 0;

   while(a > 0){

       a /= 10;

       c++;

   }

   return c;

}

signed main() {

   srand(time(NULL));

   const ll n = 25;

   ll sum = 0;

   ll mas[n];

   for(ll i = 0; i < n; i++){

       mas[i] = rand() % 493 - 246;

       cout << mas[i] << " ";

       if(digits(mas[i]) == 2 && mas[i] % 4 == 0)

           sum += mas[i];

   }

   cout << "\n" << sum;

}

1.Найти сумму чётных цифр числа.

uses crt;
var a,x:integer;
i,s:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
if x mod 2 =0 then s:= s + (x mod 10);
x:= x div 10;
end;
writeln( 'Summa= ', s );
readln;
end.

2.Вывести на экран таблицу умножения.

uses crt;
var a: array [1..10,1..10] of integer;
i,j:integer;
begin
clrscr;
for i:=2 to 10 do
begin
writeln;
for j:=1 to 10 do
write(i*j,'  ');
end;
writeln;
readln;
end.

3.Найти все двухзначные числа, сумма которых равна а.

uses crt;
var a,x,i,s:integer;
begin
clrscr;
writeln('Vvedite a');
readln(a);
for i:=10 to 99 do
begin
x:=i;
s:=0;
while (x<>0) do
begin
s:=s+(x mod 10);
x:=x div 10;
end;
if s=a then write(i,' ');
end;
readln;
end.

4.Найти количество и сумму чётных делителей.

uses crt;
var s,k,i,a:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
i:=2;
s:=0;
k:=0;
while i<>a do
begin
if (a mod i =0) and (i mod 2=0) then
begin
s:=s+i;
k:=k+1;
end;
i:=i+1;
end;
writeln('Summa chisletelei =',s);
writeln('Kolichestvo delitelei= ',k);
readln;
end.