8)
var
f_tmp, f1, f, sum: integer;
i, n: byte;
begin
readln(n);
f_tmp := 0;
f1 := 1;
if n = 0 then sum := 0
else sum := 1;
for i := 2 to n do
begin
f := f1 + f_tmp;
sum := sum + f;
f_tmp := f1;
f1 := f
end;
writeln('Сумма ', n , ' чисел = ',sum);
readln;
end.
9)
const n = 5;
var
A: array [1 .. 10, 1 .. 10] of integer;
i, j, s, w, k, q: integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
write('A[', j, ',', i, '] = ');
readln(A[j, i]);
end;
s := 0;
for i := 1 to n do s := s + A[1, i];
k := 1;
for i := 1 to n do
begin
w := 0; q := 0;
for j := 1 to n do
begin
w := w + A[j, i];
q := q + A[i, j];
end;
if (s <> w) or (q <> s) then
k := 0;
end;
if k = 0 then write('Квадрат не магический')
else write('Квадрат магический');
readln;
end.
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
===== PascalABC.NET =====
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.
A:array[1..10] of integer;
b, d:array[1..10] of string;
c:array[1..10] of string;
m, n, i, k, t :integer;
begin
for i:=1 to 10 do
readln(a[i]);
readln(b[i]);
readln(c[i]);
t:=1;
for i:=1 to 10 do
if (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;
for i:=1 to 10 do
if c[i]='м' then m:=m+1
else n:=n+1;
m:=m\10*100;
n:=n\10*100;
for i:=1 to t do
writeln(d[i]);
writeln(n);
writeln(m);
readln;
end.