Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
АсяБру
02.06.2022 19:21 •
Другие предметы
Даны результаты переписи населения. Получить фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года (программа Паскаль)
Показать ответ
Ответ:
irasemenova1
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.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
natalinatark
11.10.2021 05:06
3) Как вы думаете, почему язык можно сравнить с живым орга- низмом? Приведите примеры, подтверждающие возможность такого сравнения. Используйте материал упр. 1,...
наифа
11.07.2020 18:31
T 9- mashq. Berilgan soʻzlardan tub va yasama sifatlarni ajratib yozing.Koʻrka m, sezgir, ozg in, yangi, toʻgʻri, katta, shirin, chi-royli, ziyrak, påst, toza, rostgo y, ulkản, jasur,...
ритттт
09.10.2021 10:55
Денелер неге батади жузеди Оз оиынды жазпомагите ...
Ksyu130104
08.02.2023 17:17
5. Соберите пословицы. 1)Чем труднее дело,2)В тайном деле 3)Где честь, 4)Честное дело и буйну головуА) СмиряетБ) там и правдаВ) тем выше честь. Г) чести нет ...
TEM1KK
17.06.2022 05:35
Написать сообщение на тему требования к секретарю...
averdarya
08.09.2020 10:50
1. кто является носителем специфики театрального искусства? в чем проявляется взаимность творчества художника и игры актёра? 2. какую роли играет театр в обществе и в вашей жизни?...
тьпнли
24.11.2021 20:30
Розташуйте свічку або настільну лампу на відстані 30-40 см від стіни. Між стіною та свічкою(лампою) помістіть долоню. Змінюючи відстань від свічки до долон гайте зміни, що відбуваються...
platonogloblin
03.03.2020 16:37
Точки A, B, C, D не лежать в одній площині, а точки K, L, M, N - середини відрізків AD, DC, BC, AB відповідно. Доведіть, що прямі KM і NL перетинаються і намалюйте малюнок....
007238
03.03.2020 16:37
Напишите связанный текст на тему что такое милосердие используя причастия и прилагательные с н,нн...
alina1934
03.03.2020 16:37
С ФИЗИКОЙ автомобиль проезжает мимо контрольного поста имеет скорость 36 км ч далее он движется равноускоренно и через 10 секунд его скорость составляет 54 км ч используя данные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.