На рисунке схема - схема дорог, связывающая города А, Б, В, Г, Д, Е, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город К?
1) there are 4 rooms in this house. (подставите количество сами, т.к. не вижу в каком 2)there are 2 bedrooms in this house. 3) there in his living (аналогично на остальные вопросы), т.к. не видно картинки, чтобы вам перечислить,что в зале, в обеденной комнате, ванне, спальне и ученическом столе).
Program abc; var a,b,c,t,z:integer; m,k,l:string; label 1,2,3,4; begin writeln ('Введите число от 1-го до 100'); repeat read(a) until (a>=0)and(a<=100); b:=a div 10; c:=a mod 10; if a=100 then goto 2; if a=0 then goto 1; if (a>9) and (a<20) then goto 4; case b of 2:m:='Двадцать '; 3:m:='Тридцать '; 4:m:='Сорок '; 5:m:='Пятьдесят '; 6:m:='Шестдесят '; 7:m:='Семдесят '; 8:m:='Восемьдесят '; 9:m:='Девяносто '; end; case c of 1:k:='один'; 2:k:='два'; 3:k:='три'; 4:k:='четыре'; 5:k:='пять'; 6:k:='шесть'; 7:k:='семь'; 8:k:='восемь'; 9:k:='девять'; end; writeln (m,k); goto 3; 2:writeln ('Сто'); goto 3; 1: writeln ('Ноль'); goto 3; 4: if a=10 then writeln ('Десять'); if a=11 then writeln ('Одиннадцать'); if a=12 then writeln ('Двенадцать'); if a=13 then writeln ('Тринадцать'); if a=14 then writeln ('Четырнадцать'); if a=15 then writeln ('Пятьнадцать'); if a=16 then writeln ('Шестнадцать'); if a=17 then writeln ('Семнадцать'); if a=18 then writeln ('Восемнадцать'); if a=19 then writeln ('Девятнадцать'); 3:end.
