Question

введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число

Answer 1

Var a:integer; c:real; Begin Readln(a); If a>=0 then c:=sqrt(a) Else c:= 1/a; Write(c); End.

Answer 2

Напиши на меня жалобу. Не путаю.

Answer 3

Да.... 4 раза исправлять одну строчку текста. Мастер...

Answer 4

а ты что думал? не один ты здесь мастер

Answer 5

Извините, я считал, что сарказм будет понятен и без кавычек. Ошибся)))

Answer 6

не ссорьтесь