tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Даны результаты переписи
Даны результаты переписи населения. Получить фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года (программа Паскаль)
AlisaBust
2 16.04.2019 23:00
6
Ответы
Yaroslav34364
16.04.2019 23:00
program ghost;
uses
crt;
type
man = Record
fam: String;
name: String;
data: Integer;
end;
var
perepis: array[1..3] of man;
i: Integer;
count: Integer;
begin
clrscr;
perepis[1].fam := 'ivanov';
perepis[1].name := 'ivan';
perepis[1].data := 1990;
perepis[2].fam := 'petrov';
perepis[2].name := 'petr';
perepis[2].data := 1991;
perepis[3].fam := 'sidorov';
perepis[3].name := 'sidr';
perepis[3].data := 1992;
count := 0;
for i := 1 to 3 do
if (perepis[i].data = 1990) then
Inc(count);
for i := 1 to 3 do
begin
write('famaly: ', perepis[i].fam);
writeln;
write('name: ', perepis[i].name);
writeln;
write('data: ', perepis[i].data);
writeln;
writeln('');
end;
writeln('count: ', count);
readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
Андріана1323
04.07.2019 14:24
Кто нибудь сдавал вступительный по композиции? нужны темы, можете даже сами придумать...
clon255
17.05.2019 17:21
Уменя есть комп и телефон.компютер не плохой ,а телефон полохой.и я хотел поиграть standoff 2 на компе.устоновил блюстакс ,установил .всё нормально но потом у меня...
OlyaMonokova
17.05.2019 17:21
Какие витамины бывают и в каких продуктах они содержатся это доклад по технологии не с интернета...
егор22813371111
17.05.2019 17:19
Выполнить по рисункам, надо обозначить разрезы на рисунках...
trototil
17.05.2019 17:18
Черчение., , вообще не шарю в черчении, 30 . есть фото ....
1ПИНЧЕР1
22.04.2021 08:45
какие требования предъявляются к автоматизированному устройству для подсчёта суточных цыплят и их укладки в ящики...
Черпачок
22.04.2021 08:43
підготувати повідомлення про визначні пам ятки Італії; про життя і творчість Дж. Родарі. дужеее ...
vilnur345
22.04.2021 08:41
Створіть новий файл Рython та нове вікно із заголовком Магазин морозива . Створіть дві групи перемикачів. Над першою групою створіть напис Оберітыь тип морозива...
kabirova2356
22.04.2021 08:41
Содержание урока Задание №2 В твёрдых телах и в и передаются Звук не передаётся. Быстрее Медленнее воде звуки усиливаются зделайте ...
didar6
22.04.2021 08:37
Оцените погрешность оценивания доверительного интервала при доверительной вероятности 0.95, если СКО вольтметра 0.01 мВ, а его показания 1.83 В, если мы считали,...
Популярные вопросы
1 The rain (stop) be fore , I went for a walk. 2- They (live)...
2
Випишіть правильний прикметник. a)Sushi is eaten in Japan.It...
3
447 А, через час мне нужно сдавать...
2
При нагріванні до 450° С без доступу кисню, целюлоза обвуглюється...
3
люди надо до 15 00 сделай морфологический разбор глагола *степью*...
3
Кислоты яки спричиняють кислотно дощи...
3
Какой ответ тут может быть , очень ?...
2
Экономика стран западной Европы...
2
Основой Ренессанса был...? * ГуманизмФилософияИстория#2Кто такой...
1
Почему к незнакомым предметам человек притрагивается кончиками...
1
uses
crt;
type
man = Record
fam: String;
name: String;
data: Integer;
end;
var
perepis: array[1..3] of man;
i: Integer;
count: Integer;
begin
clrscr;
perepis[1].fam := 'ivanov';
perepis[1].name := 'ivan';
perepis[1].data := 1990;
perepis[2].fam := 'petrov';
perepis[2].name := 'petr';
perepis[2].data := 1991;
perepis[3].fam := 'sidorov';
perepis[3].name := 'sidr';
perepis[3].data := 1992;
count := 0;
for i := 1 to 3 do
if (perepis[i].data = 1990) then
Inc(count);
for i := 1 to 3 do
begin
write('famaly: ', perepis[i].fam);
writeln;
write('name: ', perepis[i].name);
writeln;
write('data: ', perepis[i].data);
writeln;
writeln('');
end;
writeln('count: ', count);
readkey;
end.