Решить уравнение

@implex22 · Регистрация: 23.05.2016

Помогите написать задачу на паскале(текстовые файлы). Название: 888.JPG
Просмотров: 10

Размер: 9.4 Кб

@ZX Spectrum-128 · 05.06.2016, 18:59

Pascal

var
 x:real;
begin
 readln(x);
 if x<>0 then
  writeln(1/x)
 else
  writeln('Деление на 0!');
end.

Добавлено через 32 секунды

Сообщение от implex22

текстовые файлы).

Текстовые файлы здесь причем?

@implex22 0 / 0 / 0 Регистрация: 23.05.2016 Сообщений: 12
		1
	Решить уравнение 05.06.2016, 12:09. Показов 1063. Ответов 1 Метки нет (Все метки) Помогите написать задачу на паскале(текстовые файлы). 0

	05.06.2016, 18:59

Решение