Георгий 23 октября 2019 в 02:14
Pascal ABC
Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень а1,а2,..,an?Крім того у дівчаток на голові бантик висотою 10 см,а висота паркану Н см?
Pascal ABC
Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень а1,а2,..,an?Крім того у дівчаток на голові бантик висотою 10 см,а висота паркану Н см?
Var
i,n,h,m,d,r:integer;
begin
Write(Количество детей: ); Read(n);
Write(Высота забора: ); Read(h);
Writeln(Вводите через пробел рост детей (мальчиков - с минусом);
m:=0; d:=0;
for i:=1 to n do
begin
Read(r);
if (rlt;0) and (-rgt;h) then Inc(m)
else
if r+10gt;h then Inc(d)
end;
Writeln(Видно мальчиков- ,m,, девочек- ,d)
end.
Контрольное решение
Количество детей: 8
Высота забора: 112
Вводите через пробел рост детей (мальчиков - с минусом
-119 -124 118 107 -115 113 -111 105
Видно мальчиков- 3, девочек- 4
i,n,h,m,d,r:integer;
begin
Write(Количество детей: ); Read(n);
Write(Высота забора: ); Read(h);
Writeln(Вводите через пробел рост детей (мальчиков - с минусом);
m:=0; d:=0;
for i:=1 to n do
begin
Read(r);
if (rlt;0) and (-rgt;h) then Inc(m)
else
if r+10gt;h then Inc(d)
end;
Writeln(Видно мальчиков- ,m,, девочек- ,d)
end.
Контрольное решение
Количество детей: 8
Высота забора: 112
Вводите через пробел рост детей (мальчиков - с минусом
-119 -124 118 107 -115 113 -111 105
Видно мальчиков- 3, девочек- 4
Компьютеры и вычисления
52
41
Для комментирования необходимо зарегистрироваться на сайте