Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1 - Количество нулевых элементов
2 - Сумма всех элементов с четными номерами
3 - Номер(индекс) минимального элемента
4 - Количество элементов, кратных 5
5 - Значение наибольшего элемента массива
6 - Произведение ненулевых элементов
program pryam;
var y1, y2, y3, x1, x2 : real;
begin
writeln ('введите координату (у) верхней точки прямой');
readln (y1);
writeln ('введите координату (у) нижней точки прямой');
readln (y2);
writeln ('введите координату (х) точек-концов прямой');
readln (x1);
writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
end.
"солнце" - круг с точкой в центре
"идти" - две ноги
"хлеб" - полукруг
"рот" - сильно вытянутый полуовал
Популярные вопросы