Var
x:integer;
begin
writeln('Введите числo:');
readln(x);
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if (x=3)or(x=5)or(x=8) then
writeln('В чсило входит цифра: ',x mod 10);
end.
const n=4; m=8;
var a:array[1..n,1..m] of integer;
i,j,x: integer;
begin
x:=1;
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=x;
if (j mod 2 = 0) and (i<>n) then x:=x-1
else x:=x+1
end;
x:=x+n-1
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:5);
writeln
end
end.
<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;
begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.
и еще надо дописать разрешение файла Желательно</span>
Ответ: 6
Объяснение: мы должны смотреть из скольки точек мы можем попасть в К: это Д, В, Е. Теперь мы должны узнать сколько точек ведут в эти дороги. В точку Д одна дорога(АБД). В точку В две дороги(АВ и АБВ). В точку Е три дороги(АГЕ, АВЕ, АБВЕ). Сложим это количество: 1 + 2 + 3 = 6.