ПАСКАЛЬ1.составить программку которая проверяет четное ли это число2.составить программу

ПАСКАЛЬ
1.составить программку которая проверяет четное ли это число
2.составить программку которая уравнивает два числа a и b
3.составить программку которая инспектирует трехзначное ли это число

Задать свой вопрос
1 ответ

1)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if(num mod 2 = 0) then  

   write('Число четное')

 else  

   write('Число нечетное');

end.

2)

var

 a, b, i: integer;

begin

 writeln('Введите a');

 read(a);

 writeln('Введите b');

 read(b);

 if (a gt; b) then

   swap(a, b);

 for i := 0 to  

 b - a - 1 do

   a := a + 1;

end.

3)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if (num div 1000 = 0) and (num div 100 lt;gt; 0) then  

   write('Число трехзначное')

 else  

   write('Число не трехзначное');

end.

Паша Буяков
Здрасти,Вы убеждены,что это верно?:)Просто учительница очень строгая
Олеся Гертилина
('Число четное') в скобках прям так словами и писать?
Вероника Маковецкая
Да
Владислав Рудненко
@Dudl200,1. Тег SWAP(a,b) не обязан был употребляться> Вы где-нибудь в вопросе упоминали, что можно использовать, а что нельзя? Если Вы не ставите ограничения в ответе, то юзер в праве писать программу так, как угодно ему, но с тем же результатом. К тому же, тут процедура Swap используется, чтоб не было отрицательного значения (хоть и можно было использовать Абс.
Дмитрий Канинов
2. во-втором пт в конце ответа не необходимо было писать тег write> Вновь же, где об этом написано?
Агата Карпович-Крастынь
программка не работает в паскале
Татьяна Легова
2?
Белькова Оленька
Что означает "не работает"? В каком Pascal? Где запускаете? Какие оплошности выводит?
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт