Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
Давайте решу как ведущий экономист.
Excel, действительно, не обязателен.
350 * [ (1 - (1+0,11/4)^-28) / (0,11/4) ] =6 772,789 тыс. руб.
Это свиток, а на языке информатики к сожалению не знаю :с
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.