ВВЕСТИ С КЛАВИАТУРЫ ДВА ЧИСЛА .БОЛЬШЕЕ ЧИСЛО ЗАМЕНИТЬ НА ПРОТИВОП. ЧИСЛО МЕНЬШЕ ЧИМЛО ЗАМЕНИТЬ НА НОЛЬ
Ответы
Ответ дал:
0
Плз лучший ответ
//////////////////
program g;
var
q, w: integer;
begin
writeln('Введите первое число');
readln(q);
writeln('Введите второе число 2');
readln(w);
if q>w then
begin
writeln('-', q, ' 0');
end;
if w>q then
begin
writeln('-', w, ' 0');
end;
if q=w then
begin
writeln('Вы ввели равные числа');
end;
end.
//////////////////
program g;
var
q, w: integer;
begin
writeln('Введите первое число');
readln(q);
writeln('Введите второе число 2');
readln(w);
if q>w then
begin
writeln('-', q, ' 0');
end;
if w>q then
begin
writeln('-', w, ' 0');
end;
if q=w then
begin
writeln('Вы ввели равные числа');
end;
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад