Написать функцию, которая сравнивает два целых числа

@avabnic · Регистрация: 10.03.2012

Author24 — интернет-сервис помощи студентам

Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков:>,< или =.Помогите!!1

@ermolay · 26.03.2012, 18:34

Pascal

  var
    n,m: integer;
  function srav(n,m: integer):char;
  var ch: char;
  begin
 
    if n>m then ch:='>'
      else if n<m then ch:='<'
        else ch:='=';
    srav:=ch;
  end;
 
var
  ch1: char;
begin
  repeat
  write('vvedite dva chisla: ');
  readln(n,m);
  writeln('n ',srav(n,m),' m');
  writeln('povtorit? y/Y elsi da');
  readln(ch1);
  until not (ch1 in ['y','Y']);
end.

@avabnic · 28.03.2012, 16:06 **[ТС]**

спасибо большое!!!

@avabnic 0 / 0 / 0 Регистрация: 10.03.2012 Сообщений: 16
		1
	Написать функцию, которая сравнивает два целых числа 26.03.2012, 18:16. Показов 4342. Ответов 2 Метки нет (Все метки) Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков:>,< или =.Помогите!!1 0

@avabnic 0 / 0 / 0 Регистрация: 10.03.2012 Сообщений: 16
	28.03.2012, 16:06 [ТС]	3
	спасибо большое!!! 0

Написать функцию, которая сравнивает два целых числа

Решение