Допустим, есть таблица "Цены" с полем "Цена". Считаем коэффициент для скидки. Допустим, скидка 20%, тогда K = 1 - (20% / 100%) = 1 - 0.2 = 0.8
Создаём запрос на основе таблицы "Цены". В построителе выражений (или непосредственно в заголовке столбца с данными в конструкторе запросов) пишем так:
ЦенаСоСкидкой: Цены.Цена*0,8
3 клавиатуры * 2 мыши * 2 гарнитуры = 12 способов
Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Для этого используй тип string,то есть строка
program znanija;
var n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.
Введите название фильма : Лига Справедливости
Введите название кинотеатра : Луксор
Введите время : 21:40
Билет на Лига Справедливости в Луксор на 21:40 забронирован.