C# плз ! ввести з клавіатури 8 будь-яких чисел. знайти кількість та добуток тих, що належать інтервалу [a, b].
Ответы на вопрос:
ответ:
type man = record
name: string;
surname: string;
date: record
day: integer;
month: integer;
year: integer;
end;
end;
var people: array [1..100] of man;
i,n,_year: integer;
_name: string;
begin
write('enter number of man: ');
readln(n);
for i : = 1 to n do
with people[i] do
begin
writeln('man[',i,']: ');
write('enter name: ');
readln(name);
write('enter surname: ');
readln(surname);
write('enter birthday day/month/year: ');
readln(date.day, date.month, date.year);
writeln;
end;
write('enter year: ');
readln(_year);
for i : = 1 to n do
with people[i] do
if (date.year = _year) then
writeln('name: ',name,' surname: ',surname);
writeln;
write('enter name: ');
readln(_name);
for i : = 1 to n do
with people[i] do
if (name = _name) then
begin
write(surname,' ',name);
writeln(' ',date.day,'.',date.month,'.',date.year);
end;
readln;
end.
объяснение:
Популярно: Информатика
-
Fid1112.06.2021 09:31
-
Beckonechnost13.11.2020 04:53
-
irinaa1018.01.2023 05:28
-
Таня1315181411.05.2022 05:03
-
боня5130.11.2022 15:09
-
Дамочка1110.08.2022 06:07
-
эльмиравип28.07.2022 01:02
-
Околофутбольник04.02.2022 18:32
-
lokosso31.05.2020 00:48
-
neketapro12.09.2020 00:39