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.
ВЫБРАТЬ ДЛЯ КОНКУРСА ЧЕЛОВЕКА РОСТОМ ОТ 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.
More Questions From This User See All