5. В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» – символ «&». В таблице приведены за и количество найденных по ним страниц некоторого сегмента сети Интернет. Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за Царевна&Лебедь - 900
Царевна - 3200
Царевна/Лебедь - 4000
Какое количество страниц (в тысячах) будет найдено по за Лебедь?
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m');
end.
//PascalABC.NEt v3.3 1633
var A,B,x,m: integer;
i: integer;
num, composition, sum: integer;
begin
A:=5;
B:=1;
x:=12;
m:=6;
write('Введите натуральное число: ');
readln(num);
composition:=1; // Произведение цифр числа
sum:=0; // Сумма цифр числа
// Преобразуем число в строку и пробегаемся по ней, находя
// сумму и произведение цифр.
for i:=1 to IntToStr(num).Length do
begin
composition *= StrToInt(IntToStr(num)[i]);
sum += StrToInt(IntToStr(num)[i]);
end;
if sum < A then
writeln('Верно! Сумма его цифр меньше A!')
else
writeln('Не верно! Сумма его цифр не меньше A!');
if composition > B then
writeln('Верно! Произведение его цифр больше B!')
else
writeln('Не верно! Произведение его цифр не больше B!');
if IntToStr(num).Length = x then
writeln('Верно! Это число '+x+'-значное!')
else
writeln('Не верно! Это число не '+x+'-значное!');
if StrToInt(IntToStr(num)[1]) > m then
writeln('Верно! Первая цифра числа превышает '+m)
else
writeln('Не верно! Первая цифра числа не превышает '+m);
end.