сервис вопросов и ответовпользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное
5-9 класс|
|
Yakunina1977
23 апр. 2014 г., 16:22:02 (10 лет назад)
0602Yulya1997
23 апр. 2014 г., 19:14:56 (10 лет назад)
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a < b then
begin
a := a + b;
b := a - b;
a := a - b;
end;
if a mod b = 0 then
writeln('a + b = ', a + b)
else
writeln('a / b = ', a / b);
end.
Ответить
Другие вопросы из категории
Вопрос
Чем может отличатся один объект от другого или что изменится у объекта при выполнение действия????
Очень срочно. Вопрос от красворда
Ребят, помогите решить!
Дано два натуральных числа N и M.
Написать программу для определения наименьшего из чисел, составленных из цифр данных чисел. Незначащих нулей в найденном числе быть не должно.
Формат входных данных:
Входной файл INPUT.TXT содержит два натуральных числа N (10<=N<=10^100) и M (10<=M<=10^100), разделенных одним пробелом.
Формат выходных данных:
Выходной файл OUTPUT.TXT должен содержать найденной наименьшее число.
Пример
INPUT.txt. OUTPUT.txt
423 42 22344
Проблема с Паскалем. Мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. Я понимаю, как сначала надо
распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с:
Читайте также
введены два числа вывести их решение произведение если первое больше второго и разность в противном случае
ввели ц числа определите большее или меньшее 25-ти их сумма
Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N.
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
. Составьте программу (полный текст программы) для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если все они четные, то найдите и
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);
Вы находитесь на странице вопроса "пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.