1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь
Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр
Допустим, есть таблица "Цены" с полем "Цена". Считаем коэффициент для скидки. Допустим, скидка 20%, тогда K = 1 - (20% / 100%) = 1 - 0.2 = 0.8
Создаём запрос на основе таблицы "Цены". В построителе выражений (или непосредственно в заголовке столбца с данными в конструкторе запросов) пишем так:
ЦенаСоСкидкой: Цены.Цена*0,8
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.