Могу предположить, что это - <em>Расширение</em> (файла). Например 123.txt (Текстовый файл с названием 123), 123.wmw (Видео файл).
program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.
Python:
slovo = str(input())
a = slovo[::-1]
if slovo == a:
print("yes")
else:
print("no")
pascal:
function palindrom(var arg:string):boolean;
var i:byte;
str:string;
begin
palindrom:=false;
str:='';
for i:=length(arg) downto 1 do
str:=str+arg[i];
if str=arg then palindrom:=true; end;
var s:string;
begin readln(s); writeln(Palindrom(s));
readln;
end.
Функция
при реализации на базовых элементах цифровой логики ("И", "ИЛИ", "НЕ") потребует четыре элемента - два на инверсию, один на дизъюнкцию этих инверсий и один на итоговую конъюнкцию. Сделаем несложное преобразование, воспользовавшись законом де-Моргана:
Теперь достаточно трех элементов. Функциональная схема представлена во вложении.
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
