Pascal
10-11 класс
|
1)Задан список из 7 фамилий. Определить, имеется ли в списке фамилия, начинающаяся с буквы "А" и состоящая из 6 букв. Если да, то вывести ее на экран
2)В заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. Предусмотреть возможность задания с клавиатуры удаляемого символа.
3)Организовать простейшую базу данных по студентам группы. Сведения о студенте включают: ФИО, год рождения, пол, средний балл. Обеспечить ввод данных, редактирование, вывод на экран. Информацию хранить в типизированном файле.
Помогите пожалуйста решить. отдаю полностью все свои баллы
1)
var
i: integer;
s: array [1..7] of string;
begin
writeln('Введите 7 фамилий: ');
for i := 1 to 7 do readln(s[i]);
for i := 1 to 7 do
if (s[i][1] = 'А') and (length(s[i]) = 6) then writeln('Подходящие фамилии: ', s[i])
end.
Другие вопросы из категории
последовательность слов. Напечатать
те слова последовательности, которые
отличны от последнего слова и удовлетворяют
следующему свойству: слово симметрично
отдельные этапы построения и исследования
модели?
минимальным элементами массива (включая их)
В слове 4 гласных буквы ¬ (Пятая буква гласная) В слове 5 согласных букв?
1) Шиншилла 2) Кенгуру 3) Антилопа 4) Крокодил
5) Для какого символьного набора истинно высказывание:
Вторая буква согласная (В слове 3 гласных буквы Первая буква согласная)?
1) УББОШТ 2) ТУИОШШ 3) ШУБВОИ 4) ИТТРАО
буквы русского алфавита, начертание которых есть в латинском алфавите?
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
получить от 5 до 15 баллов (Сгенерить случайные числа
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.