Задание:
1. Дано натуральное число n. Определить есть ли в нем цифра x. (x, n — вводятся с клавиатуры) 2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода — число 0. Выясните есть ли в ней хотя бы одна пара одинаковых «соседних» чисел. СРОЧНО!
Решение:
var x, n: integer; begin write ('x='); readln (x); write ('n='); readln (n); while n > 0 do begin if n mod 10=x then begin writeln ('Yes'); readln; Exit; end; n: =n div 10; end; writeln ('No'); readln; end. //Задание 2var a: array[1… 100] of integer; i, n: integer; begin randomize; n: =random (18+3); writeln ('n=', n); for i: =1 to n do begin a[i]: =random (11) — 5; while a[i]=0 do a[i]: =random (11) — 5; write ('a[', i, ']=', a[i], '); end; a[i+1]: =0; writeln; i: =1; while (a[i+1] <> 0) do begin if (a[i]=a[i+1]) then begin writeln ('a[', i, ']=a[', i+1, ']=', a[i]); readln; exit; end; inc (i); end; writeln ('Нет ни одной пары одиноковых соседних чисел'); readln; end.
Знаете другой ответ?