program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
PascalABC
Если s0 - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100.
Окончательная формула: s=s0(1-p/100)
const
p=13; { налог в процентах }
var
s0,s:real;
begin
Write('Введите сумму '); Read(s0);
s:=s0*(1-p/100);
{ а теперь округлим сумму до копеек, т.е. до 0.01 }
s:=Int(100*(s+0.005))/100;
Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2)
end.
Тестовое решение:
Введите сумму 2000
Сумма после вычета налога 13% составит 1740.00
Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.