Вариант №2 1.На рисунке-схема дорог, сак как цих города А. Б. В. Г. Д. Е. Ж. И. К. Л. По каждой дороге можно двигаться только одновлення, указанном стрелкой.Сколько существует рестичных путей ит пункта А в гункт Л. проходукт и?
2. На рисунке - схема дорог, связывших города А, Б, В, Г, Д, Е, Ж, К, Л, М, Н. П. ПО каждой дороге можно лигаться только в одном направлении, указанном стрелкой.
Сколько существует различных путей из города А вгород П, проходящих через город Л?
K
M
3.IIа рисунке схема дорог, связывающих город А. Б. В.Г. Д. И. К. По дороге можно двигаться только в одном направлении, указанном стрелкой.
Сколько существует различных путей из города А в город К, не проходящих через пункт
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.