введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число
Ответы
Ответ дал:
0
Var a:integer; c:real;
Begin
Readln(a);
If a>=0 then c:=sqrt(a)
Else c:= 1/a;
Write(c);
End.
Ответ дал:
0
Напиши на меня жалобу. Не путаю.
Ответ дал:
0
Да.... 4 раза исправлять одну строчку текста. Мастер...
Ответ дал:
0
а ты что думал? не один ты здесь мастер
Ответ дал:
0
Извините, я считал, что сарказм будет понятен и без кавычек. Ошибся)))
Ответ дал:
0
не ссорьтесь
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад