Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
kaz4640984
1 / 1 / 4
Регистрация: 09.09.2013
Сообщений: 105
1

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

09.09.2013, 20:21. Просмотров 290. Ответов 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
Ответы с готовыми решениями:

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

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

Даны три целых числа. Найти сумму двух наибольших из них
1)Даны три целых числа. Найти сумму двух наибольших из них. Входные данные: 3...

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

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

1
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,360
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

Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое число есть
Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое...

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

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


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

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

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