Помогите, пожалуйста, решить задачу на паскале. Срочно.
5-9 класс
|
Даны два натуральных числа m и n. (m,n ≤ 9999). Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.
var
a, b: integer;
x, y: string;
begin
readln(a);
Str(a, x);
readln(a);
Str(a, y);
for b := 1 to length(y) do
if (Pos(y[b], x) > 0) then
begin
writeln('Есть!');
exit;
end;
writeln('Нет!');
end.
Другие вопросы из категории
сумму всех четных элементов массива и отдельно сумму элементов имеющих четные индексы. Выведите результаты подсчета на экран. Отсортируйте данный массив по убыванию.
128 МБ В ГБ
40960 БАЙТ В КБ
25 КБ В БИТЫ
512 КБ В ГБ
81920 БИТ В КБ
передачии файла в секунду.
Если можно с обьяснением. Вроде по формуле: V=v*t?
Читайте также
налево и слева направо.
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
клавиатуры.
2)найти перевертышь трехзначного числа.
Заполнить массив по следующему принципу:
31 25 19 13 7 1
32 26 20 14 8 2
33 27 21 15 9 3
34 28 22 16 10 4
35 29 23 17 11 5
36 30 24 18 12 6
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.