При измерении пульса человека было зафиксировано 75 пульсаций крови за 1 минуту. Определите частоту сокращения сердечной мышцы.
119
355
Ответы на вопрос:
а)
const
n=2;
type
ped=record
nazv:string[128];
den:string[16];
vr:string[5]; // '12.00'
channel:string[128];
end;
var
tv:array[1..n] of ped;
i:integer;
std,stvr:string;
begin
for i:=1 to n do
begin
write('Введите название телепредачи: '); readln(tv[i].nazv);
write('Введите день телепредачи: '); readln(tv[i].den);
write('Введите время телепредачи: '); readln(tv[i].vr);
write('Введите название канала: '); readln(tv[i].channel);
end;
write('Введите день эфира: '); readln(std);
write('Введите время эфира: '); readln(stvr);
for i:=1 to n do
begin
if (tv[i].den=std) and (tv[i].vr=stvr) then
begin
write('День выхода телепредачи: ', tv[i].nazv,'на канале: ',tv[i].channel,' - ',tv[i].den, ', время выхода - ',tv[i].vr);
writeln;
end;
end;
readln;
end.
const
n=2;
type
ped=record
nazv:string[128];
den:string[16];
vr:string[5]; // '12.00'
channel:string[128];
end;
var
tv:array[1..n] of ped;
i:integer;
std,stvr:string;
begin
for i:=1 to n do
begin
write('Введите название телепредачи: '); readln(tv[i].nazv);
write('Введите день телепредачи: '); readln(tv[i].den);
write('Введите время телепредачи: '); readln(tv[i].vr);
write('Введите название канала: '); readln(tv[i].channel);
end;
write('Введите день эфира: '); readln(std);
write('Введите время эфира: '); readln(stvr);
for i:=1 to n do
begin
if (tv[i].den=std) and (tv[i].vr=stvr) then
begin
write('День выхода телепредачи: ', tv[i].nazv,'на канале: ',tv[i].channel,' - ',tv[i].den, ', время выхода - ',tv[i].vr);
writeln;
end;
end;
readln;
end.
Популярно: Другие предметы
-
linkevich105.04.2020 04:51
-
Катттття11.11.2021 14:50
-
Lala09003.06.2021 22:29
-
olyascochilyas24.03.2023 12:42
-
prkf07.04.2022 14:11
-
cnastya97010.10.2021 12:51
-
aliyarahimova2724.10.2021 22:00
-
таня192410.12.2020 19:14
-
marat2017200309.11.2020 13:24
-
jerrymoup0dqct17.02.2020 23:33