Годовая ставkа-0,07
выплата 41000
общая сумма 370000
kол-во лет выплат 6,1
Задачі зроблені на мові Pascal ABC
1. Program z1
var f1,f2:text;
a,b,c: integer;
begin
assign(f1 , 'input.txt');
reset(f1);
assign(f2,'output.txt')
rewrite(f2);
readln(f1,a,b);
a:=15;
b:=1,60935;
c:=a×b;
writeln(f2,c);
close(f1);
close(f2);
end.
2. Program z2
var f1,f2:text;
a,b,c: integer;
begin
assign(f1 , 'input.txt');
reset(f1);
assign(f2,'output.txt')
rewrite(f2);
readln(f1,a,b);
a:=23;
b:=3,785;
c:=a×b;
writeln(f2,c);
close(f1);
close(f2);
end.
//Сумма столбиков матрицы 4х4
var
mas:array[1..4,1..4] of integer;
sum:array[1..4] of integer;
j,i:integer;
begin
for i:=1 to 4 do
sum[i]:=0;
for j:=1 to 4 do
for i:=1 to 4 do
read(mas[j][i]);
for j:=1 to 4 do
for i:=1 to 4 do
sum[i]:=sum[i]+mas[j][i];
for i:=1 to 4 do
writeln('Сумма столбика ',i,'=',sum[i]);
end.