Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/19: Рейтинг темы: голосов - 19, средняя оценка - 5.00
The Black Angel
1 / 1 / 0
Регистрация: 21.01.2014
Сообщений: 17
1

Определить, какое из чисел больше

25.04.2014, 22:29. Просмотров 3573. Ответов 1
Метки нет (Все метки)

Даны два числа. Определить, какое из них больше. Вывести знак '>' если первое число больше, или знак '<' в противном случае.


Входные данные:
Во входном потоке в первой строке через пробел заданы целые числа A и B (-30000 < A,B < 30000), A неравно B.

Выходные данные:
В выходной поток вывести единственный символ.


Пример входного файла (input.txt):5 7
Пример выходного файла (output.txt):<
Pascal
1
2
3
4
5
6
7
var
  a, b: integer;
begin
  readln(a, b);
  if a > b then writeln(a)
           else writeln(b)
end.
подскажити что не правильно и справте пожалуста напишити полностю програму
за рание спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2014, 22:29
Ответы с готовыми решениями:

Для двух заданных чисел выяснить, какое из них больше и на сколько
Добрый день,Помогите написать программу на языке Паскаль обработки натуральных...

Какое из двух чисел будет больше, если в обоих числах переставить крайние цифры?
3. Заданы два числа M и N. Какое из двух чисел будет больше, если в обоих...

Определить количество натуральных чисел, которые не больше N и не делятся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Напишите программу, которая определяет количество...

Определить, какое количество чисел перебрал компьютер
помогите пожалуйста решить задачу в паскале, вот условие:Компьютер перебирает...

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H
ПОМОГИТЕ ПОЖАЛУЙСТА!!))) даны число P и H.Определить сумму чисел меньше...

1
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
26.04.2014, 01:48 2
The Black Angel, вы хоть условие читайте, у вас файл..а вы что пишите..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var f,g:text;
    a,b:integer;
    c:char;
begin
 clrscr;
  assign(f,'in.txt');
   assign(g,'out.txt');
   reset(f);
  while not eof(f) do
   begin
    read(f,a);
     read(f,b);
   end;
  writeln('A = ',a);
   writeln('B = ',b);
  rewrite(g);
   if a<b then
    write(g,'<')
   else
    write(g,'>');
   reset(g);
    while not eof(g) do
     begin
      read(g,c);
       write(c);
     end;
  close(f);
 close(g);
 readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2014, 01:48

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H
ПОМОГИТЕ!!!!! даны число P и H.Определить сумму чисел меньше P,произведение...

Определить какое из трех чисел равно d.
всем привет! помогите с программкой: даны три числа a, b, c. Определить какое...

Из трех заданных чисел определить, какое самое большое
Из трех заданных чисел определить, какое самое большое


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru