Pascal 1)задан список из 7 фамилий. определить, имеется ли в списке фамилия, начинающаяся с буквы "а" и состоящая из 6 букв. если да, то вывести ее на экран 2)в заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. предусмотреть возможность с клавиатуры удаляемого символа. 3)организовать простейшую базу данных по студентам группы. сведения о студенте включают: фио, год рождения, пол, средний . обеспечить ввод данных, редактирование, вывод на экран. информацию хранить в типизированном файле. решить. полностью все свои
Ilay64
3
28.05.2019 03:40
0
Другие вопросы по теме Информатика
Koroleva12112002
01.04.2019 03:50
garvarrd
26.04.2020 17:52
ксения1361
26.04.2020 17:52
timofee1999
29.10.2020 11:00
Королева1986
07.07.2019 02:30
sdsdsgttu
07.07.2019 02:30
fananenkova
07.07.2019 02:30
matveyxhi
07.07.2019 02:30
hh222
01.05.2020 16:38
Популярные вопросы
- Синквейн на имя егорнапишите синвейн на имя егор...
3 - При каком значении b квадратный трехчлен можно разложить на линейные...
2 - Представьте что вашему классу поручили важное общественное дело - поздравить...
3 - 5предложений с пословица и, что пословиц подходили по смыслу...
1 - Докажите равенство с выражением: (4х + 28)∙1,2 +1,3∙(х + 3) + (– 1,7...
3 - Надо по бел литу зделать выдуманную с планом (на беларуском языке),...
2 - Придумайте и решите на расчет прибыли...
2 - Какая страна больше всех понесла потерь в крымской войне? почему...
3 - Запишите в порядке убывания числа: -7/4, -1/4, -15/4, -3/4, -2....
1 - Треугольник авс = треугольнику а1в1с1. пенриметр треугольника авс равен...
3
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.