Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
Для групповых операций с файлами
используются
маски имен файлов. Маска представляет собой
последовательность букв, цифр и прочих допустимых в именах файлов символов, в
которых также могут встречаться следующие символы: символ «?» (вопросительный
знак) означает ровно один произвольный символ; символ «*» (звездочка) означает любую последовательность символов
произвольной длины, в том числе «*» может задавать и пустую последовательность.
Определите,
какое из указанных имен файлов удовлетворяет маске: ?el*.t*xt.
A) spell.txt
B) pencil.text
C) el.txt
<span>D) welcome.text</span>
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>
1) Z=4
((4 кратно 4) + (4 кратно 5)) →( 4 кратно 6)
( 1 + 0) → 0 = 0
2) Z=6
(0 + 0) → 1 =1
3) Z=7
( 0+0) → 0 =1
4) Z=12
(1 +0) → 1 =1 ответ 3