Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
Поднять перо --> Опустить перо
Повторить 2 --> Повторить 4
Опустить перо --> Поднять перо
1.
алг Девять
нач цел a,i,s
ввод a
| вывод a
s:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
если i=9
то s:=s+1;
все
кц
если s>1
то вывод "Цифр 9 в введенном числе больше одной - ", s
иначе если s=0
то вывод "Цифр 9 в введенном числе нет"
иначе вывод "Цифра 9 в введенном числе одна"
все;
все
кон
2.
алг ЧетНечет
нач цел a,i,s,k
ввод a
| вывод a
s:=0;
k:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
k:=k+1;
если mod(i,2)=0
то s:=s+1;
все
кц
если s=k
то вывод "Все цифры введенного числа четные "
иначе вывод "Не все цифры введенного числа четные"
все
кон
3.
алг Возрастание
нач цел a,i,s,k,d,z
ввод a
s:=0;
k:=0;
d:=0;
z:=1;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
d:=s;
s:=i;
k:=k+1;
если d>s
то z:=z+1;
все
кц
если z=k
то вывод "Все цифры введенного числа идут в порядке возрастания"
иначе вывод "Не все цифры введенного числа идут в порядке возрастания"
все
кон
6 бит. конечно же . Log_2 N=6.
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.