Упорядочить массив двузначных чисел [10] в порядке неубывания (методлм прямого обмена)

183

212

Посмотреть ответы 1

Ответы на вопрос:

aleksejgrunin0

Информатика

4,4(69 оценок)

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('введите слово: ').tolower; var c: =readlnchar('введите букву: ').tolower; if pos(s[1],'аеёиоуыэюя')> 0 then writeln('слово начинается с гласной') else writeln('слово начинается не с гласной'); if s[1]=c then writeln('слово начинается с указанной буквы') else writeln('слово не начинается с указанной буквы') end. примеры введите слово: арбуз введите букву: к слово начинается с гласной слово не начинается с указанной буквы введите слово: барабан введите букву: б слово начинается не с гласной слово начинается с указанной буквы