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