Var
a: real;
begin
while a <= 1000 do
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
if a > 1000 then break
else writeln('Ошибка! Введенная сумма покупки <= 1000p');
end;
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
a: real;
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
<span>Галактики являются, а вселенная - нет. Ведь нет границ у вселенной</span>
<span>x = int(input())
a = <span>0
</span>b = <span>1
</span>while x > 0<span>:
</span>----if x%2 >0<span>:
</span></span>--------<span>a +=x%<span>8
</span></span>----<span>else<span>:
</span></span>--------<span>b*=x%<span>8
</span></span>----<span>x = x//<span>8
</span>print(a,b)
Пример
5982 12
</span>