//Язык. Паскаля. Язык Паскаля, Карл!
//Pascal ABC.NET v3.1 сборка 1172

Var
a,b,c:integer;
d:boolean;
begin
d:=false;
readln(a);
readln(b);
repeat
c:=a mod 10;
a:=a div 10;
if c=b then d:=true;
until (c=b) or (a=0);
if d=true then writeln('Есть') else writeln('Нет');
end.

<span>Пример ввода:
34457
8
Пример вывода:
Нет
</span>

0 0

3 года назад

Процедура обработки строки состоит из двух последовательных операций: 1 Заменить в строке все символы 'A' на подстроку 'AB' 2 За

SVETA65

Ответ:

2,0,334

Объяснение:

Выпишем первые 10 строк и посчитаем количество символов a, b и c

i a b c

1 acac 2 0 2

2 abcabc 2 2 2

3 accacc 2 0 4

4 abccabcc 2 2 4

5 acccaccc 2 0 6

6 abcccabccc 2 2 6

7 accccacccc 2 0 8

8 abccccabcccc 2 2 8

9 acccccaccccc 2 0 10

10 abcccccabccccc 2 2 10

Как видим, a=2 и не изменяется, b принимает значение 0 для нечетных строк и 1 для четных строк, с принимает значение i+1 для нечетных строк и i для четных.

333 - нечетное число, поэтому b=0, а c=333+1=334

0 0

4 года назад

Скорость передачи данных по некоторому каналу связи равна 52 Кбит/с. Передача файла по этому каналу связи заняла 4 мин. Определи

IGOR T

1) 52*60=3000 (кб) в минуту
2) 3000*4= 12000 (кб) всего

0 0

4 года назад