Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
kaz4640984
1 / 1 / 0
Регистрация: 09.09.2013
Сообщений: 92
#1

Даны 3 целых числа - Pascal

09.09.2013, 20:21. Просмотров 269. Ответов 1
Метки нет (Все метки)

Даны 3 целых кроме 0, найти их полусумму, деление первого числа на второе и второго на третье.
Не могу сделать проверку на 0, если я правильно понял должно проверка на 0 через if then.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a,b,c:integer; ps,r1,r2:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
ps:=(a+b+c)/2;
writeln('polusumma ps=',ps);
r1:=a/b;
writeln('a/b=',r1);
r2:=b/c;
writeln('b/c=',r2);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2013, 20:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Даны 3 целых числа (Pascal):

Даны два целых числа A и B. Получить их частное, остаток от целочисленного деления A на B, а также значение степени числа AB - Pascal
Даны два целых числа A и B. Получить их частное, остаток от целочисленного деления A на B, а также значение степени числа Ab

даны четыре целых числа.Определить сколько из них нечётные - Pascal
даны четыре целых числа.Определить сколько из них нечётные.

Даны три целых числа. Найти сумму двух наибольших из них - Pascal
1)Даны три целых числа. Найти сумму двух наибольших из них. Входные данные: 3 целых числа A,B,C(-1000<=A,B,C<=1000) Выходные данные :...

Даны два целых числа с одинаковым количеством разрядов. Найти их поразрядную сумму - Pascal
Даны два целых числа с одинаковым количеством разрядов. Найти их поразрядную сумму. Например, поразрядной суммой чисел 345 и 597 будет...

Даны три целых числа А,В,С,А<>0, заданных датчиком случайных чисел из диапазона [-10,10]. Определить, имеет ли уравнение - Pascal
Ребят помогите! Решить задачки!!! Даны три целых числа А,В,С,А&lt;&gt;0, заданных датчиком случайных чисел из диапазона . Определить, имеет...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2 - Pascal
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента,...

1
Puporev
Модератор
52836 / 40647 / 13895
Регистрация: 18.05.2008
Сообщений: 94,321
09.09.2013, 20:30 #2
Pascal
1
2
3
4
repeat
writeln('vvedite a<>0 a=');
readln(a);
until a<>0;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2013, 20:30
Привет! Вот еще темы с ответами:

Даны три файла целых чисел - Pascal
Даны три файла целых чисел одинакового размера с именами NameA, NameB и NameC. Создать новый файл с именем NameD, в котором чередовались бы...

даны две матрицы целых чисел.. - Pascal
даны две матрицы целых чисел s,k,в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы program lb9_2; uses...

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b - Pascal
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b. Объясните как найти простые числа?а то я совсем не поняла...

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b - Pascal
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие неравенствам: a&lt;=p&lt;=b.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.