Вопрос по информатике:
Даны два числа .Если они не равны ,то найти их сумму и произведение . Если произведение больше суммы ,то определить на сколько. Числа ввести случайным образом на интервале заданном клавиатуры.Помогите решить пожалуйста!
Пожаловаться
- 02.05.2017 00:27
- Информатика
- remove_red_eye 6705
- thumb_up 24
Ответы и объяснения 1
Program ran;
label main;
var
x, y, min, max, s, p, d: integer;
begin
randomize;
writeln('ВВОД ПРОМЕЖУТКА');
write('от: ');
readln(min);
write('до: ');
readln(max);
main:
x := min + random(max - min + 1);
y := min + random(max - min + 1);
if not(x = y) then
begin
s := x + y;
writeln('сумма: ', s);
p := x * y;
writeln('произведение: ', p);
if p > s then
begin
d := p - s;
writeln('произведение больше суммы на ', d);
end;
end
else
begin
writeln('случайные числа равны, повтор генерации...');
goto main;
end;
end.
label main;
var
x, y, min, max, s, p, d: integer;
begin
randomize;
writeln('ВВОД ПРОМЕЖУТКА');
write('от: ');
readln(min);
write('до: ');
readln(max);
main:
x := min + random(max - min + 1);
y := min + random(max - min + 1);
if not(x = y) then
begin
s := x + y;
writeln('сумма: ', s);
p := x * y;
writeln('произведение: ', p);
if p > s then
begin
d := p - s;
writeln('произведение больше суммы на ', d);
end;
end
else
begin
writeln('случайные числа равны, повтор генерации...');
goto main;
end;
end.
Пожаловаться
- 03.05.2017 01:10
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы