Напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв день z месяца.
137
238
Ответы на вопрос:
type
person=record
fam: string;
imya: string;
day: integer;
end;
var
a: array[1..50] of person;
i,n,z: integer;
begin
write('n='); readln(n);
for i: =1 to n do
begin
write('fam-'); readln(a[i].fam);
write('imya-'); readln(a[i].imya);
write('day-'); readln(a[i].day);
end;
write('z-'); readln(z);
for i: =1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.
1бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. а 6 может быть равна любой из 1; 2; 3; 4; 5.
Популярно: Информатика
-
yakirill010920027.09.2020 02:13
-
lovelovelove1110.11.2022 01:31
-
emilimalaya17.08.2022 04:28
-
Katya1750728.03.2023 22:30
-
galinamosyagina25.09.2021 09:53
-
avramkata8116.10.2020 17:35
-
FlowerBlue1701.01.2022 18:32
-
Clay135328.11.2020 00:27
-
FzdAngels05.04.2020 19:44
-
goldlena197912.01.2020 18:25