Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
Var n,a,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if a mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
n = 5
Вводите числа:
15
24
73
48
94
k = 2
Program Massif;
const n=4; m=3;
var
a:array [1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
Readln(a[i,j]);
a[i,j]:=sqr(a[i,j]);
end;
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Минимальная длина дорог = 7+8+5+4+10+6 = 40
Решение - в прилагаемом файле
Больше склоняюсь к варианту 2, т.к. точнее информации в виде кодированного текста, понимаемого компьютером и всей техникой в целом, представить я не в силах.