Pascal ABCисправьте ошибки, пожалуйста в моей программе.ВЫБРАТЬ ДЛЯ КОНКУРСА ЧЕЛОВЕКА РОСТОМ ОТ 172 ДО 184см ИЛИ ВЕСОМ ОТ 70 ДО 80 кг. program konkyrs;vara,b:integer;beginwriteln ('вводим число');readln (a,b);if (a больше =172...
Pascal ABC
исправьте ошибки, пожалуйста в моей программе.
ВЫБРАТЬ ДЛЯ КОНКУРСА ЧЕЛОВЕКА РОСТОМ ОТ 172 ДО 184см ИЛИ ВЕСОМ ОТ 70 ДО 80 кг.
program konkyrs;
var
a,b:integer;
begin
writeln ('вводим число');
readln (a,b);
if (a>=172) then if (a<=184) or
if (b>=70) then if (b<=80) then writeln ('подходит для конкурса')
else writeln ('не подходит для конкурса')
else writeln ('не подходит для конкурса')
end.
Гость
Ответ(ы) на вопрос:
Гостьprogram konkyrs;
var
a,b:integer;
BEGIN
writeln ('введите рост и вес участника через пробел');
readln(a,b);
if (a>=172) and (a<=184) then
begin
if (b>=70) and (b<=80) then writeln('подходит для конкурса')
else writeln ('не подходит для конкурса');
end
else writeln ('не подходит для конкурса');
readln;
END.
ошибка была в том что надо использовать вместо or (или) оператор and (и) ,а еще были пропущены точка с запятой после команды else ...
Не нашли ответ?
Похожие вопросы