На рисунке — схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город К?
Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (a,b):=ReadReal2('Укажите длины сторон прямоугольника:'); Writeln('Площадь=',a*b,', периметр=',2*(a+b), ', диагональ=',Sqrt(a*a+b*b):0:5) end.
Пример Укажите длины сторон прямоугольника: 13.6 8.4 Площадь=114.24, периметр=44, диагональ=15.98499
begin var (a,b):=ReadReal2('Введите a и b:'); Writeln('a+b=',a+b,', a*b=',a*b,', a/b=',a/b) end.
Пример Введите a и b: 134.23 -15.7 a+b=118.53, a*b=-2107.411, a/b=-8.54968152866242
begin var (a,b,c):=ReadReal3('Введите стороны треугольника:'); var p:=(a+b+c)/2; Writeln('S=',Sqrt(p*(p-a)*(p-b)*(p-c)):0:3) end.
Пример Введите стороны треугольника: 13 8 11.3 S=44.843
4
Объяснение:
АБДИК
АБВЖК
АВЖК
АГЕЗ