Ввести с клавиатуры целые числа a, b, c. посчитать выражение d=(a^2-b)*(c-b^2)/3. вывести результат на экран копьютера.

SEITZHANOFF SEITZHANOFF    2   21.05.2019 15:40    3

Ответы
1АндрейKEK 1АндрейKEK  16.06.2020 06:17

REM func
INPUT a,b,c
IF (a^2-b)*(c-b^2)<>0 THEN
D=(a^2-b)*(c-b^2)/3
PRINT D
ELSE
PRINT "Реш.нет"
END IF
End

ПОКАЗАТЬ ОТВЕТЫ
andrey89160 andrey89160  16.06.2020 06:17

program zadacha;
var
a,b,c:integer;
d:real;
begin
readln(a,b,c);
d:=(sqr(a) - b) * (c-sqr(b)) / 3;
writeln(d);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика