помогите найти ошибку

@_Лена_ · Регистрация: 28.01.2012

Author24 — интернет-сервис помощи студентам

ошибка заключается в том что в ответе он в любом случае выводит ноль

Pascal

program Zadanie9;
uses crt;
var a, b, S, R, V: real;
begin
clrscr;
S:=a+b;
R:=b-a;
V:=abs((2*a)-(3*sqr(b)));
writeln('vvedite pervoe chislo');
readln(a);
writeln('vvedite vtoroe chislo');
readln(b);
if a>b then writeln('S=',S:6:2);
if b>a then writeln('R=',S:6:2);
if a=b then writeln('V=',S:6:2);
read;
end.

вот текст задачи: дано два числа a и b. если первое число больше другого, то вычислить суму этих чисел. Если второе число больше первого, то вычислить разность второго и первого. в случае равенства вычислить выражение abs((2*a)-(3*sqr(b))).

@SunEclipse · 04.03.2012, 13:49

Pascal

var a,b:integer;
d,c,h:real;
begin
read(a,b);
d:=a+b;
c:=b-a;
h:=abs((2*a)-(3*sqr(b)));
if (a>b) then writeln(d);
if (a<b) then writeln(c);
if a=b then writeln(h);
readln;
end.

@_Лена_ · 04.03.2012, 14:09 **[ТС]**

Спасибо)

@_Лена_ 0 / 0 / 0 Регистрация: 28.01.2012 Сообщений: 4
	04.03.2012, 14:09 [ТС]	3
	Спасибо) 0