По excel решить : определить величину налога на имущество, переходящего по наследству в зависимости от суммы наследства и категории наследника. если сумма наследства не превышает 850 минимальных зарплат, то налога нет. если сумма наследства больше 850 минимальных зарплат, то: — наследники первой очереди выплачивают 5% от суммы, превышающей 850 минимальных зарплат; — наследники второй очереди —10%; — наследники третьей очереди —20%. дано: сумма наследства, размер минимальной оплаты труда, категория наследника.
x:real;
arr2: array [1..4,1..6] of integer;
arr1: array [1..4] of integer;
begin
writeln('Введи число для сравнения');
readln(x);
for var i:=1 to 4 do
begin
writeln('Вводим строку ',i);
for var j:=1 to 6 do
begin
writeln('Введи число ', j);
readln(arr2[i,j]);
if arr2[i,j]>x then arr1[i]:=arr1[i]+1;
end;
end;
writeln('Двумерный массив: ', arr2, ' Количество чисел больше заданного: ', arr1);
end.
uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.
2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.