Я,только начал работать в Паскале помоги пожалуйста,необходимо срочно. Задача следующая Вычислить А= n+40. если значение более15,но мение 25.При всех остальных значениях вычислить В= m+1. Сделал первую половину: Program new; Var n:bety; A:real; Begin Write('n'); Readln(n); If (n>15) and(n<25) Then A:=n+40; Writeln('A',A); Readln; End. Но в ответ выводит,что А=0 Помогите пожалуйста!!!!
Var n,m:byte; A,B:real; Begin Write('n'); Readln(n); If (n>=15) and(n=<25) Then begin A:=n+40; Writeln('A= ',A);end else begin Write('m'); readln(m); B:=m+1; Writeln('B= ',B);end; Readln; End. Нужна помощь? Сюда: vkontakte.ru/berestovskiy
Да потому-что в этой проге если ввести допустим 1000, оно выдаст неправильный результат, или по крайней мере должно его выдать, ибо 1000 не помещается в диапазон типа byte...ну для обычного задания и типа byte должно хватить..главное что с заданием справился... Нужна помощь? Сюда: vkontakte.ru/berestovskiy