ошибка
введите с клавиатуры переменные А и С. если значение переменной А положительно, а С отрицательно, то найдите и выведите на экран их удвоенное произведение. иначе, найдите и выведите среднее арифметическое значение этих переменных.
я решила эту задачу так:
uses crt;
var A,C,n:real;
clrscr;
begin
if (C<0) and (0<A) then writeln(n=2*A*C) else (C>0) and (0>A) then writeln(n=(A+C)/2);
readkey;
end.
помогите найти ошибку
я решила эту задачу так:
uses crt;
var A,C,n:real;
clrscr;
begin
if (C<0) and (0<A) then writeln(n=2*A*C) else (C>0) and (0>A) then writeln(n=(A+C)/2);
readkey;
end.
помогите найти ошибку
Цитата:
if (C<0) and (0<A) then writeln(n=2*A*C) else (C>0) and (0>A) then writeln(n=(A+C)/2);
Код:
if (C<0) and (A>0) then writeln(n=2*A*C) else writeln(n=(A+C)/2);
З.Ы. Я не вижу ввода переменных с клавиатуры.
так правильно?:
begin
readln(a); writeln('vvedite 1 4islo');
readln(C); writeln('vvedite 2 4islo');
begin
readln(a); writeln('vvedite 1 4islo');
readln(C); writeln('vvedite 2 4islo');
Наоборот :)
Код:
writeln('vvedite 1 4islo');readln(a);
writeln('vvedite 2 4islo');readln(C);
writeln('vvedite 2 4islo');readln(C);
чтото не получается..
я открываю программу.ввожу 1ое число.потом второе.
потом он пишет FALSE
:(
я открываю программу.ввожу 1ое число.потом второе.
потом он пишет FALSE
:(
Вот так у меня работает
З.Ы. Эх, как давно я не открывал паскаль :)
Код:
uses crt;
var A, C: real;
begin
clrscr;
write('Vvedite 1 chislo: ');
readln(A);
write('Vvedite 2 chislo: ');
readln(C);
if (C<0) and (A>0) then writeln('N=',2*A*C)
else writeln('n=', (A+C)/2);
readkey;
end.
var A, C: real;
begin
clrscr;
write('Vvedite 1 chislo: ');
readln(A);
write('Vvedite 2 chislo: ');
readln(C);
if (C<0) and (A>0) then writeln('N=',2*A*C)
else writeln('n=', (A+C)/2);
readkey;
end.
З.Ы. Эх, как давно я не открывал паскаль :)