меньшее из двух чисел (a,b) уменьшите на 4

MrLyanda: в каком виде нужен ответ? Блок схема?

xaker98: Pascal

MrLyanda: Это надо было писать в условии

xaker98: A я знал?

MrLyanda: Вот уж не знаю. Совсем паскаль не знаешь?

MrLyanda: пишу только основной блок. Описание и ввод переменных напиши сам

MrLyanda: if a<b then a:=a-4 else b:=b-4

MrLyanda: а если a=b то что делать?

xaker98: На пиши полностю со всем

MrLyanda: а что делать если a=b????

Ответы

Ответ дал: seleznev11

// меньшее из двух чисел (a,b) уменьшите на 4

Var x,y : real;
begin
writeln ('Введите первое число');
readln (x);
writeln ('Введите второе число');
readln (y);
while x=y do
begin
writeln ('Вы ввели равные числа. По условиям задачи числа не должны быть равны. Попробуйте еще раз');
writeln ('Введите первое число');
readln (x);
writeln ('Введите второе число');
readln (y);
end;
if x<y then x:=x-4
else y:=y-4;
writeln ('Первое число ',x,' Второе число ',y);
end.

MrLyanda: длинновато и зачем 2 раза ввод?

seleznev11: проверка на равные числа

MrLyanda: Можно было проще, но это верный ответ

seleznev11: Можно, но мне кажется так нагляднее

MrLyanda: Да, если не требуют оптимального кода :)

Похожие вопросы

Математика

1 год назад

Если задана фигура в прямоугольной плоскости,но в задании не указано что возьмите 1клеточку за 1 см, то вычисляется как по масштабу этой плоскости или по линейке, где взят 1 см

Музыка

1 год назад

Решите пожалуйста. Даю много баллов