var
a : array [1..9] integer;
i : integer;
begin
for i := 1 to 9 do
if i mod 3 = 1 then a[i] := i
else if i mod 3 = 2 then a[i] := sqr (i - 1)
else a[i] := a[i - 1] div i;
for i := 1 to 9 do
write (a[i], ' ');
end.
var
b, a : array [1..15] of integer;
i, sa, sb : integer;
begin
randomize;
sa := 0; sb := 0;
for i := 1 to 15 do
begin
a[i] := trunc (random (100)) + 1;
write (a[i], ' ');
sa := sa + a[i];
end;
writeln;
for i := 1 to 15 do
begin
b[i] := sqr (a[i]) - a[i]);
write (b[i], ' ');
sb := sb + b[i];
end;
writeln;
writeln (abs (sb - sa));
end.
564
Объяснение:
* - любое количество любых символов
? - один любой символ
"cam1_*.webp выдал 5320 файлов" - значит в каталоге присутствует 5320 файлов cam1_.webp ( - порядковый номер от 0000 до 5319)
"cam2_*.webp выдал 434 файла." - значит в каталоге присутствует 434 файлов cam2_xxx.webp ( - порядковый номер от 000 до 433)
cam?_?3*.webp - файлы cam1_x3xx.webp и cam2_x3x.webp
Т.е надо посчитать количество чисел от 0 до 5319 где количество сотен равно 3 и количество чисел 0 до 432 где количество десятков равно 3.
1) Количество чисел: 5*100 (от 0300 до 0399 ... и 4300 до 4399) + 20 (5300 до 5319) = 520
2) 4*10 (030 до 039 ... 330 до 339) + 4 (430 431 432 433) = 44
Итого: 520 + 44 = 564
Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"
Бодрого настроения и добра!
Успехов в учебе
Красный файл
Оранжевый браузер
Жёлтый вирус
Зелёный архивация
Голубой пароль
Фиолетовый диск