Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','Й','Ц','К','Н','Ш','Щ','З','Х','Ф','В','П','Р','Л','Д','Ж','Ч','С','М','Т','Б'];
var str: string;i: byte;
begin
readln(str);
for i:=1 to length(str) do
begin
if str[i] in g then writeln (str[i]);
end;
end.
200/50=4бита, => мощность алфавита = 2 в 4 степени = 16
Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.
1) открыть чек
2) считать штрих код товара
3) получить данные по товару
4) вычислить стоимость товара и общую сумму
5) если есть еще товары, то к п2
6) вывести общую сумму покупки или вообще данные по чеку
7) получить данные оплаты (наличка или карточка, сколько налички)
8) если оплата наличкой, то вычислить разницу/здачу и вывести на экран
9) открыть кассиру доступ к наличным деньгам в кассе
10) распечатать чек
<span>11) закрыть чек</span>
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.