program raf105;
var
x,a,b: real;
begin
write('Введите вес атлета: ');
readln(x);
write('Введите границы весовых категорий (2 числа A и B): ');
readln(a,b);
if x < a
then writeln('Первая весовая категория');
if (x > a) and (x < b)
then writeln('Вторая весовая категория');
if x > b
then writeln('Третья весовая категория');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
program raf105;
var
x,a,b: real;
begin
write('Введите вес атлета: ');
readln(x);
write('Введите границы весовых категорий (2 числа A и B): ');
readln(a,b);
if x < a
then writeln('Первая весовая категория');
if (x > a) and (x < b)
then writeln('Вторая весовая категория');
if x > b
then writeln('Третья весовая категория');
end.
PascalABC 3.4.2