Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>
Для этого используй тип 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 забронирован.
Дано:
V = 700 Мбайт
N = 120 Гбайт = 120*1024 = 122880 Мбайт (т.к в одном Гбайте 1024 Мбайт)
______________________________
Найти:
Кол-во CD - ?
Решение:
1) 122880 : 700 = 175,5 = 166 дисков
Ответ: потребуется 166 CD (или дисков, пиши как тебе удобнее)