begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
1)Азбука морзе:
Информатика - ..-....-.- - - .-.- -.--..-.-.-
2)Таблица Юникод(Unicode):
Инофрматика : 0428 041D 0424 041E 0420 041C 0410 0422 0418 041A 0410
3) Кодовая Таблица Символов:
Информатика : 136 173 228 174 224 160 226 168 170 160
2) 2 Мбайт, 200 Кбайт, 1 Мбайт, 1000 Кбайт.
2 Мбайта ▬ 2048 Кбайт., 1 Мбайт ▬ 1024 Кбайт.
For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Ответ:
280
Объяснение:
Если вы умеете решать дороги, то тут такой же принцип
Снизу путь, сверху кол-во вариантов
Сверху кол-во возможных вариантов продвижений, если у нас можно попасть несколькими способами, то просто суммируем значение вариантов