Информатиканапишите маску для выделения всех файлов; а) с расширением doc; б) имя которых начинается с буквы f; в) имя которых содержит pci; г) расширение которых вторая буква h; д) в имени которых первая буква u, третья буква s, а в расширении есть буква o; е) в имени и в расширении которых ровно по одному символу
m, n, nok, t, i: longint;
begin
Write('Введите через пробел два целых положительных числа- ');
Readln(m, n);
{Сначала ищем НОК - наименьшее общее кратное}
if m = n then begin
nok := m;
t := m * m
end
else begin
t := m * n;
repeat
if m > n then m := m - n else n := n - m
until m = n;
nok := t div m
end;
{Теперь умножаем НОК на числа натурального ряда,
пока не дойдем до величины t=m*n}
if nok = t then Writeln('Требуемых чисел нет')
else begin
i := 1;
while (nok * i < t) do
begin
Write(nok * i, ' ');
i := i + 1
end
end
end.
Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет
1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.
2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.
3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).
4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).
5. Объективная: Часы показывают 17 часов 50 минут.
6. Необъективная: Сейчас вечер.
7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.
8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)
9. Полезная: Не сутулься, а то рано состаришься!
10. Бесполезная: В соседней деревне нет ни одного Олега.
11. Понятная: Два плюс два равно четыре.
12. Непонятная: жык лопр дыв мыг