Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі дзвінкі приголосні букви, які входять хоча б в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які входять в кожне непарне слово і не входять хоча б в одне парне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі приголосні букви, які входять тільки в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які не входять хоча б в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які не входять тільки в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі дзвінкі приголосні букви, які входять більш ніж в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі дзвінкі приголосні букви, які входять у кожне непарне слово і не входять в жодне парне.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі голосні букви, які не входять більш ніж в одне слово.
Даний текст з рядкових російських букв, який закінчується крапкою. Вивести в алфавітному порядку (по разу) всі рядкові російські голосні букви, що входять в цей текст.
Даний текст з латинських букв, який закінчується крапкою. Вивести всі букви, що входять у текст не менше двох разів.
Даний текст з рядкових латинських букв, який закінчується крапкою. Вивести всі букви, що входять в текст один раз.
type nat=1.. 10000; Описати функцію digits(n), що підраховує кількість різних значущих цифр у десятковому записі натурального числа n.
type nat=1..0000; Описати функцію print(n), що виводить у зростаючому порядку всі цифри, що не входять у десятковий запис натурального числа n.
Даний текст з рядкових латинських букв, який закінчується крапкою. Визначити, яких букв - голосних (а, е, i, o, u) або приголосних більше у цьому тексті.
const n=10; type number=l..n; matrix=array [number, number] of real; num=set of number; Описати функцію sum^si^), що обчислює суму тих елементів матриці А, номери рядків яких належать непорожнім множинам s1 і s2 типу num.
.У зростаючому порядку вивести всі цілі числа з діапазону
.10000, що подаються у вигляді 2n+2m, де n, m >= 0.
type M=set of 0..99; Описати функцію card(A), що підраховує кількість елементів у множині A типу M.
type month=1..12; Описати функцію days(m), що визначає кількість днів у місяці m (невисокосного року).
Дано 100 цілих чисел від 1 до 50. Визначити, скільки серед них чисел Фібоначчі.
Дано ціле n від 2 до 1000. Використовуючи метод “решето Ератосфена”, надрукувати у спадаючому порядку всі прості числа з діапазону n..2n. (Суть методу: виписуються всі цілі числа, більші 1; береться перше з них (це 2, просте число) і викреслюються всі кратні йому числа, крім нього самого; потім береться наступне із невикреслених чисел (це 3, також просте число) і викреслюються всі кратні йому, крім нього самого; і так для кожного невикресленого раніш числа. Наприкінці залишаються тільки прості числа, починаючи з 2).
Дано 100 цілих чисел від 1 до 50. Визначити, скільки серед них чисел, перша цифра у десятковому записі яких 1 або 2.
Дано текст, який закінчуються крапкою. Визначити, чи є цей текст правильним записом формули: <формула>=<терм>| (<формула> <знак> <формула>); <знак>=+| -|* ; <терм>=<ім’я>| <ціле>; <ім’ я>=<буква>| <ім’ я> <буква>| <ім’ я> <цифра>; <ціле>=<цифра>| <ціле> <цифра>; <буква>=а| б| в| г| д| е| ж; <цифра>=0| 1|2 |3 |4 |5 |6 |7 |8 |9.
Описати логічну функцію path(G,N,K,D), що визначає, чи є в орієнтованому графі G шлях з вершини N у вершину K, і, якщо є, присвоює параметрові D довжину (кількість дуг) найкоротшого шляху з N у K. Використати таке подання графа: type node=(b1,b2,b3,b4,b5,b6,b7,b8); neib=set of node; graph1=array[node] of neib; (G[x] - множина вершин, в які ведуть дуги з вершини x).
type state^^c^e^h); states=set of state; routs=array [state] of states; Описати процедуру ruotexist(r, n, k), яка по рейсах r (г[х] - множина міст, в які можна за один рейс доїхати автобусом з міста х) визначає k - множину міст, в які можна потрапити автобусом (за один рейс або через інші міста) з міста n.
type name=(George, Alex, Piter, Ann, Paul, John, Fred, Natalie, Robert); guests=set of name; groups=array [name] of guests; Описати логічну функцію anywhere(gr), що визначає, чи є в групі gr хоча б одна людина, що побувала у гостях у всіх інших з групи (gr[x] - множина людей, що були в гостях у людини з ім'ям х; х не належить gr[x]).
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які входять в кожне непарне слово і не входять хоча б в одне парне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі приголосні букви, які входять тільки в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які не входять хоча б в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі глухі приголосні букви, які не входять тільки в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі дзвінкі приголосні букви, які входять більш ніж в одне слово.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі дзвінкі приголосні букви, які входять у кожне непарне слово і не входять в жодне парне.
Дана непорожня послідовність слів з рядкових російських букв; між сусідніми словами - кома, за останнім словом - крапка. Надрукувати в алфавітному порядку всі голосні букви, які не входять більш ніж в одне слово.
Даний текст з рядкових російських букв, який закінчується крапкою. Вивести в алфавітному порядку (по разу) всі рядкові російські голосні букви, що входять в цей текст.
Даний текст з латинських букв, який закінчується крапкою. Вивести всі букви, що входять у текст не менше двох разів.
Даний текст з рядкових латинських букв, який закінчується крапкою. Вивести всі букви, що входять в текст один раз.
type nat=1.. 10000; Описати функцію digits(n), що підраховує кількість різних значущих цифр у десятковому записі натурального числа n.
type nat=1..0000; Описати функцію print(n), що виводить у зростаючому порядку всі цифри, що не входять у десятковий запис натурального числа n.
Даний текст з рядкових латинських букв, який закінчується крапкою. Визначити, яких букв - голосних (а, е, i, o, u) або приголосних більше у цьому тексті.
const n=10; type number=l..n; matrix=array [number, number] of real; num=set of number; Описати функцію sum^si^), що обчислює суму тих елементів матриці А, номери рядків яких належать непорожнім множинам s1 і s2 типу num.
.У зростаючому порядку вивести всі цілі числа з діапазону
.10000, що подаються у вигляді 2n+2m, де n, m >= 0.
type M=set of 0..99; Описати функцію card(A), що підраховує кількість елементів у множині A типу M.
type month=1..12; Описати функцію days(m), що визначає кількість днів у місяці m (невисокосного року).
Дано 100 цілих чисел від 1 до 50. Визначити, скільки серед них чисел Фібоначчі.
Дано ціле n від 2 до 1000. Використовуючи метод “решето Ератосфена”, надрукувати у спадаючому порядку всі прості числа з діапазону n..2n. (Суть методу: виписуються всі цілі числа, більші 1; береться перше з них (це 2, просте число) і викреслюються всі кратні йому числа, крім нього самого; потім береться наступне із невикреслених чисел (це 3, також просте число) і викреслюються всі кратні йому, крім нього самого; і так для кожного невикресленого раніш числа. Наприкінці залишаються тільки прості числа, починаючи з 2).
Дано 100 цілих чисел від 1 до 50. Визначити, скільки серед них чисел, перша цифра у десятковому записі яких 1 або 2.
Дано текст, який закінчуються крапкою. Визначити, чи є цей текст правильним записом формули: <формула>=<терм>| (<формула> <знак> <формула>); <знак>=+| -|* ; <терм>=<ім’я>| <ціле>; <ім’ я>=<буква>| <ім’ я> <буква>| <ім’ я> <цифра>; <ціле>=<цифра>| <ціле> <цифра>; <буква>=а| б| в| г| д| е| ж; <цифра>=0| 1|2 |3 |4 |5 |6 |7 |8 |9.
Описати логічну функцію path(G,N,K,D), що визначає, чи є в орієнтованому графі G шлях з вершини N у вершину K, і, якщо є, присвоює параметрові D довжину (кількість дуг) найкоротшого шляху з N у K. Використати таке подання графа: type node=(b1,b2,b3,b4,b5,b6,b7,b8); neib=set of node; graph1=array[node] of neib; (G[x] - множина вершин, в які ведуть дуги з вершини x).
type state^^c^e^h); states=set of state; routs=array [state] of states; Описати процедуру ruotexist(r, n, k), яка по рейсах r (г[х] - множина міст, в які можна за один рейс доїхати автобусом з міста х) визначає k - множину міст, в які можна потрапити автобусом (за один рейс або через інші міста) з міста n.
type name=(George, Alex, Piter, Ann, Paul, John, Fred, Natalie, Robert); guests=set of name; groups=array [name] of guests; Описати логічну функцію anywhere(gr), що визначає, чи є в групі gr хоча б одна людина, що побувала у гостях у всіх інших з групи (gr[x] - множина людей, що були в гостях у людини з ім'ям х; х не належить gr[x]).
