Ответ:
program tt;
uses wincrt;
var
chislo,a,b,c:integer;
begin
ClrScr;
writeln('Введите число:');
readln(chislo);
a:=chislo div 100;
b:=(chislo mod 100) div 10;
c:=chislo mod 10;
if (a=b) or (a=c) or(b=c) then
writeln('Есть!')
else
writeln('Нет!');
readln;
end.
Объяснение:
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.
Смотри прикрепленный файл
Автобус автограф автодром автомат автор
<span>1. Аудиторией называется специально оборудованное помещение (в каком-либо университете, институте ит. д.) для чтения лекций и проведения учебных занятий.<span>Лекционная аудитория.</span></span><span>2. Аудиторией называются все те люди, которые пришли послушать лекцию, речь, выступление и т. п.<span><span>Ответить на вопросы аудитории.</span> | <span>Установить контакт с аудиторией.</span></span></span><span>3. Читательской, зрительской, слушательской аудиторией называют тех людей, которые читают книги,смотрят телевидение, слушают радио.</span>