Помогите срочно. Напишите программу
2 комментария:
Какой язык?
Какой язык?
Какой язык?
Какой язык? Ответы
Гость Var y,k:real;
Begin
Write('y = ');ReadLn(y);
if y > 0 then k:=y*y/2
else k-:=Abs(1.5*y*y);
WriteLn('k = ',k);
End.
Нет комментариев
Похожие вопросы
Информатика
Как образуется отрицание высказывания...
Информатика
A:=10; b:=6;; a:=a+b; b:=a mod 3; d: =a - b;...
Список предметов
