Выдает ошибку - Pascal ABC (12528)
Формулировка задачи:
Ребят не подскажете в чем накосячил
Листинг программы
- uses crt;
- var a, b, y,r:real;
- begin
- writeln('Введите a');
- readln(a);
- writeln('Введите b');
- readln(b);
- r:=(a+b) mod 2;
- if ((r=0) or (a=0)) then begin y:=(sqr(a*b)*(a*b)); end else
- if ((r<>0) and (a<>0)) then begin y:=(sqr(a*b)/2); end;
- writeln('Ответ: ',y);
- end.
Решение задачи: «Выдает ошибку»
textual
Листинг программы
- var a, b, r:integer;
- y:real;
- begin
- writeln('Введите a');
- readln(a);
- writeln('Введите b');
- readln(b);
- r:=(a+b) mod 2;
- if ((r=0) or (a=0)) then
- y:=sqr(a*b)*(a*b)
- else if ((r<>0) and (a<>0)) then y:=sqr(a*b)/2;
- writeln('Ответ: ',y:0:2);
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
