Написать программу,которая рассчитывает стоимость со стоимостью скидки 10% в том случае,если сумма покупки больше 1000 рублей и 20%,если cумма покупки больше 5 и 10 000 рублей. ввести стоимость покупки с учетом скидки и без ее учета.
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⇒16 число справа налево делится на группы из 4 цифр каждая, затем каждая группа заменяется на шестнадцатеричную цифру: 1000111111₂ = 10 0011 1111₂ = 23F₁₆ При переводе 10⇒12 число надо делить на 12 и выписать остатки от деления в обратном порядке. Остаток 10 заменить на A, остаток 11 - на B 923₁₀ = 64B₁₂ Два последних примера лучше делать за 2 действия: сначала перевести в 10-ю систему счисления, а потом - в 5 (или 12) 79₁₆ = 121₁₀ = 441₅ 1050₈ = 552₁₀ = 3A0₁₂
Const n=4; var arr: array[1..n, 1..n] of integer; i, j, t, buf: integer; begin for i:=1 to n do for j:=1 to n do begin write('Введите элемент: '); readln(arr[i,j]); end; writeln('Введеная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; //Сортировка for j:=1 to n do for i:=1 to n-1 do for t:=i+1 to n do if arr[i,j] > arr[t,j] then begin buf := arr[i,j]; arr[i,j] := arr[t,j]; arr[t,j] := buf; end; writeln('Отсортированная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; end.
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.