Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 16.03.2017, 20:14   #1
Masha252623
 
Регистрация: 13.03.2017
Сообщений: 6
Репутация: 10
Печаль Задача с циклом

Вводятся N чисел и сравниваются с каким-то наперёд заданным числом A. Вывести про каждое число сообщение: "больше","меньше" или "равно" этому значению A.
Помогите пожалуйста
Masha252623 вне форума   Ответить с цитированием
Старый 16.03.2017, 22:11   #2
digitalis
Форумчанин
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 307
Репутация: 119
По умолчанию

Числа real или integer ?
digitalis вне форума   Ответить с цитированием
Старый 16.03.2017, 22:59   #3
Masha252623
 
Регистрация: 13.03.2017
Сообщений: 6
Репутация: 10
По умолчанию

integer
Masha252623 вне форума   Ответить с цитированием
Старый 16.03.2017, 23:39   #4
SASFM
Форумчанин
 
Аватар для SASFM
 
Регистрация: 26.03.2015
Сообщений: 158
Репутация: 10
По умолчанию

Код:

var a,b,n,i:integer;
begin
  read(a,n);
  for i:=1 to n do
  begin
    read(b);
    if b>a then writeln('Больше') else
    if b<a then writeln('Меньше') else
    if b=a then writeln('Равно');
  end;
end.

__________________
Моя родина там, где мой компьютер
SASFM вне форума   Ответить с цитированием
Старый 16.03.2017, 23:50   #5
Masha252623
 
Регистрация: 13.03.2017
Сообщений: 6
Репутация: 10
По умолчанию

Большое спасибо!
Masha252623 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача с циклом shketeg Помощь студентам 2 30.11.2016 01:58
Задача с циклом for seyana Общие вопросы C/C++ 1 02.11.2015 20:29
задача с циклом while lammy Помощь студентам 1 09.12.2009 17:06
задача с циклом for lammy Помощь студентам 3 04.12.2009 07:45
Задача с циклом for в c++ Many man Помощь студентам 5 14.12.2008 13:01




04:27.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru