Решить, вариант 1,номер 1 и 3.паскаль

Elay11 Elay11    3   27.11.2019 22:24    0

Ответы
vika1704 vika1704  10.10.2020 16:35

PascalABC.NET

// 1

begin

 var s := ReadlnString;

 if s[1] = s[7] then

   Print('Да')

 else

   Print('Нет')

end.

//3

begin

 var s := ReadlnString;

 if s.Length mod 5 = 0 then

   Print('Да')

 else

   Print('Нет')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика