с информатикой. Произвести расчеты с клиентом за купленный товар с учетом времени оплаты, которая может осуществляться частью в форме предоплаты (в размере не менее 60% от всей стоимости товара), частью в более поздние сроки. Если покупатель не хочет заплатить за весь товар сразу, он может внести остаток суммы позже, но с наценкой, определяемой таблицей А1:Е2. Наценка на остаток составляет 1% при оплате в срок от 1 до 3 дней, 2% - на срок до 7 дней и т. д. Покупатель указывает сумму, которую он может внести сразу (не менее, чем указано в G2) и число дней (не более 15), через которое будет оплачен остаток. Остаток суммы с учетом наценок за кредит определяется в ячейке F6. В G6 находится полная сумма, вносимая покупателем за товар. В G10 вычисляется число крупных заказов, превышающих 50000 руб. Наценку на безналичную оплату найти функцией ГПР(). Контроль А6:А8: Товар={Мука, Масло, Сахар, Хлеб}. Форматирование 06:08: если Всего > 50 000 р. График: Товар - Всего.
Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m')
end.
var
n,b,s:integer;
begin
Write('Введите натуральное число и значение b: ');
Read(n,b);
if n>b then Writeln('Неверно')
else begin
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10
end;
if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
end
end.
Программа для 2.
var
k,m,n,b,s:integer;
begin
Write('Введите натуральное число и значения m,n: ');
Read(k,m,n);
if k mod n <> 0 then Writeln('Неверно')
else begin
s:=0;
while k>0 do begin
s:=s+k mod 10;
k:=k div 10
end;
if s>m then Writeln('Верно') else Writeln('Неверно')
end
end.