сервис вопросов и ответовНапишите пожалуйста программу для Pascal ABC по заданию: Даны два числа а,б (real) большее число разделить на меньшее если это возможно.Если разделить
5-9 класс|
|
нельзя, найти сумму
Ketris24
30 окт. 2013 г., 0:44:37 (10 лет назад)
Amanda123
30 окт. 2013 г., 2:23:04 (10 лет назад)
Var a,b,z:real;
Begin
readln(a,b);
If (a>b) and (b>0) then z:=a/b else
If (a>b) and (b<0) then z:=a/b else
If (a>b) and (b=0) then z:=a+b else
If (b>a) and (a>0) then z:=b/a else
If (b>a) and (a<0) then z:=b/a else
If (b>a) and (a=0) then z:=a+b;
Writeln(z);
end.
Ответить
Другие вопросы из категории
меню в программе автоматического поиска книги в библиотеке.можно использовать следующие
понятия:библиотека,роман,С.Я.Маршак,А.Л.Барто,русский язык.литература,рассказ,словарь,справочник,стихотворение,сказка,фантастика,удожественная литература,математика,братья Гримм,Н.А.Никрасов,учебник,специальная литература,история,английский язык,М.Ю.Лермонтов,немецкий язык,естествознание,французский язык,Г.Х.Андерсен,А.С.Пушкин,А.Линдгрен,гелграфия,Дж.Родари,информатика.
1. Задумайте любое трёхзначное число.
2. Умножьте задуманное число на 3.
3. К ответу прибавьте 9.
4. К ответу прибавьте 15.
5. Из ответа вычтите 3.
6.Раздилите ответ на 3.
7. Из ответа вычтите задуманное число.
помогите пожалуйста решить задачи если можно побыстрей:
Считая,что каждый символ кодируется одним байтом,определите, чему равен информационный объем следующего высказывания Жан-Жака Руссо:
Тысяча путей ведут к заблуждению,к истине-только один.
Читайте также
НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В, состоящей из 8 элементов вещественного
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
ЗАДАЧИ НА TURBO PASCALE
1)Найти наибольшее среди 2 чисел
2)Для чисел a,b,c,d вывести на экран полусумму наибольшего и наименьшего из них.
Напишите пожалуйста программы для этих задач.
Составить программу через Pascal ABC. Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2*Pi*
R, S = Pi*R2 ( R в квадрате ). Pi = 3.14
P.S Напишите полную программу
Вы находитесь на странице вопроса "Напишите пожалуйста программу для Pascal ABC по заданию: Даны два числа а,б (real) большее число разделить на меньшее если это возможно.Если разделить", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.