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

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

09.09.2013, 20:21. Просмотров 282. Ответов 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
Даны два целых числа A и B. Получить их частное, остаток от целочисленного...

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

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

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

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

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

1
Puporev
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
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....

даны две матрицы целых чисел..
даны две матрицы целых чисел s,k,в которых имеется по 2 одинаковых числа.найти...

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b....


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

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

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