сервис вопросов и ответоввычислить в pascal abc: y=1/(2-x) с оператором условного перехода. очень срочно
5-9 класс|
|
FairyTail02
05 янв. 2014 г., 0:34:48 (10 лет назад)
Misstanyshka66
05 янв. 2014 г., 2:20:14 (10 лет назад)
var y,x:real;
begin
readln(x,y);
if 1=1 then y:=1/(2-x);
writeln(y);
end.
MissKriss12
05 янв. 2014 г., 3:12:00 (10 лет назад)
Program Program1;
var
x:real;
begin
write('Введите значение x: ');
readln(x);
if 2-x=0 then writeln('Деление на ноль.')
else
writeln('y=',1/(2-x));
end.
Ответить
Другие вопросы из категории
Помогите информатику.
Ввести 2 числа ,найти их сумму и произведение ,если произведение окажется положительным ,то выдать его на экран,а иначе выдать на экран сумму.
Программист Василий Кардов недавно получил банковскую карточку. Что бы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно:
пароль равен количеству чисел от 1 до 10 000, не делящихся на 13 и 17. Чему равен пароль Васи?
Помогите, плиз, оооочень нужно!!!:(
Всем привет скажите пожалуйста кто сможет решить сейчас задачу по информатике в Паскале
x*x + y*y <=4
при x = 1 а y= -1
Читайте также
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Кто-нибудь кто хорошо разбирается в Pascal ABC,помогите,пожалуйста! 1.Нарисовать круг, разделённый на N одинаковых частей, окрашенных в разный цвет.
Количество частей N вводится с клавиатуры. 2.Нарисовать пирамиду из разноцветных прямоугольников.Количество прямоугольников вводится с клавиатуры. 3.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует) Вычислить произведение максимального и минимального числа. 4.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых двух чисел нуля нет. Найти сумму двух наибольших чисел. 5.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых трех чисел нуля нет. Найти среднее арифметическое трёх наименьших чисел.
Вы находитесь на странице вопроса "вычислить в pascal abc: y=1/(2-x) с оператором условного перехода. очень срочно", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.