Program gt;
var a:array[1..1000]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i]=i+10)then write(a[i],' ');
end;
end.
Чтобы попасть в точку К, надо попасть в точки Е, В, Г, Ж.
В точку Е есть 3 путя.
В точку В - 2.
В точку Г - 2.
В Ж - 2.
Суммируем: 3+2+2+2=9 путей.
Ответ: 9.
Begin
var a:=ReadInteger('Введите двузначное число :');
var b:=a mod 10 ; var c:= a div 10;
Writeln('Разность =',c-b);
Writeln('Произведение =',c*b);
end.
Вправо
нц 3 раза
нц 3 раза
закрасить, вниз
кц
вправо
кц
<span>
</span>
<span>var a, k: integer;
begin
t:=0;
readln(a);
while a<>0 do begin
if (a mod 2 = 0) and (a mod 6 = 0) then
k := k + 1;
readln(a);</span>
<span> </span><span>end;
writeln(k)
end.</span>