Вволшебной стране есть 8 городов, пронумерованных числами от 1 до 8, и несколько дорог, соединяющих эти города. в связи с наступлением зимы на каждой дороге введено одностороннее движение. король хочет перенести столицу страны в тот город, из которого можно добраться до всех остальных по этим дорогам, возможно, по пути проезжая через промежуточные города. определите, в каком городе должна быть столица. в ответ запишите номер этого города (если вариантов ответа несколько, запишите наименьший номер). все дороги занесены в таблицу (см. рисунок), если на пересечении -ой строки и -ого столбца стоит 1, это означает, что из города с номером ведет дорога в город с номером (с направлением движения от до ).
var
a,k,s: integer;
begin
read(a);
k := 0; s := 0;
while a mod 2 <> 0 do
begin
if abs(a) mod 10 > 5 then
s := s + a;
a := abs(a);
if (a > 9) and (a < 100) then
k := k + 1;
read(a);
end;
writeln('k=',k,', s=',s)
end.
{2}
var
n,i,p,a: integer;
begin
read(n);
p := 1;
for i := 1 to n do
begin
read(a);
if (a > 0) and (a mod 3 = 0) then
p := p * a;
end;
writeln('p=',p)
end.
{3}
var
n,a,i,k,s: integer;
begin
read(n);
k := 0; s := 0;
for i := 1 to n do
begin
read(a);
if a > 0 then
begin
s := s + a;
k := k + 1;
end;
end;
if k = 0 then k := 1;
writeln('s=',s/k)
end.
Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет" Pascal ABC
Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" Pascal ABC
Pascal ABC Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" Pascal ABC
Pascal ABC Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
Из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" Pascal ABC