подскажите решение проблемы Опции

[Dorash87]

Подскажите как зделать. Вот простая задача:

Program 1
var
x: integer;
a,b,c,d,e,f: real;
begin
write('x=');
read(x);
a:=......
b:=......
c:=......
d:=......
begin
if x<740 then
e:=......
if x>=740 then
e:=.....
end;
f:=....
writeln ('a=',.....)
writeln ('b=',.....)
writeln ('c=',.....)
writeln ('d=',.....)
writeln ('e=',.....)
writeln ('e=',.....)
writeln ('f=',.....)
end.

При вводе значения х надо вывести вычисления a,b,c,d,e,f но не получаеться с значением e подскажите как зделать!

[Адель]

вместо этого

write('x=');
read(x);

попробуй

write('x=');
readдт(x);

а также:

writeln ('a=',.....);
writeln ('b=',.....);
writeln ('c=',.....);
writeln ('d=',.....);
writeln ('e=',.....);
writeln ('f=',.....);

и begin\end при выпоре "е" вродь как не нужен

Сообщение отредактировано: Адель - 21.03.2007 22:34