В финальных соревнованиях по метанию диска принимали - вопрос №12333434 от ismaildior200920 28.12.2022 20:28

Question

Информатика: В финальных соревнованиях по метанию диска принимали участие три спортсмена. Первым закончил выступать Василий, вторым – Петр и третьим – Николай. Все три спортсмена показали разные результаты. Разработать алгоритм и программу определения победителя соревнований. Результат метания диска Василием обозначим переменной a, результат Петра – переменной b и Николая – переменной c. Будем считать, что значения этих переменных вводятся с клавиатуры. Условие, согласно которому победителем становится Василий,

ismaildior200920 · Answer

PROGRAM Privet;

VAR

x:real;

BEGIN

writeln('Который час?'); read(x);

if x > 24 then

writeln('Введенное число не является временем ' )

else

begin

if (x>=8) and (x<12) then writeln('Доброе утро!');

if (x>=12) and (x<17) then writeln('Добрый день!');

if(x>=17) and (x<23) then writeln('Добрый вечер!');

if(x>=23) or (x<8) then writeln('Доброй ночи!');

end;

end.

//вторая программа

var

x,x1,x2,y,y1,y2:real;

begin

write('x = '); readln(x);

write('y = '); readln(y);

write('x1 = '); readln(x1);

write('y1 = '); readln(y1);

write('x2 = '); readln(x2);

write('y2 = '); readln(y2);

if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then

writeln('Точка принадлежит заданной области')

else

writeln('Точка не принадлежит заданной области');

end.