Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Составьте программу,которая проверяет,является ли человек заданного возраста школьником,если возраст школьника-от 6 о 17 лет,и выводит на экран

5-9 класс

соответствующее сообщение "Равны"либо "Неравны"

Zbvjbhjlbntkb 20 авг. 2013 г., 8:36:53 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Yuliyakunina83
20 авг. 2013 г., 11:19:04 (10 лет назад)

var
  a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)

begin
  readln(a);
  case (a) of
    6..17:
      writeln('Равны');
    else
      writeln('Не равны');
  end;
end.

Но если нужно через if..then..else:

var
  a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)

begin
  readln(a);
  if ((a >= 6) and (a <= 17)) then
      writeln('Равны')
  else
      writeln('Не равны');
end.

Ответить

Другие вопросы из категории

помогите какие знаете................ прошу помогите плиззз.......................

Решить задачи, составить программы:
1.Найти сумму цифр целого четырехзначного числа, и определить число,
цифры которого записаны в обратном порядку по отношению к исходному.
2.По введенному с клавиатуры аргументу вычислить значение функции.
3.Поменять местами значения двух переменных.
4. Написать программу ввода четырех чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из железной полосы длиной L метров нужно изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Найти площадь конца, по введенным внешним и внутренним радиусам.
8.Найти расстояние между двумя точками по их координатам

Исполнитель Кузнечик выполнил следующую последовательность команд: 6 раз прыгнул на 3 вперед и 2 раза – на 2 назад. Упростите программу так, чтобы он

оказался на той же координате.


Подскажите, как решить? Никак не получается...

Читайте также

1)Составьте программу,которая заполняет массив e[1..11] случайными целыми числами в диапазоне от -15 до 1 и находит количество элементов кратных 5.

2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.

4 а) составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 , затем элементы с четными индексами

удваиваются , а элементы с нечетными индексами утраивает.Выведите на экран исходный и полученный массив.

б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 , затем изменяет знак элементов с четными индексами на противоположный .Выведите на экран исходный и полученный массивы.

5) а)составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит количество элементов ,которые больше своего соседа слева

б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 и находит количество пар элементов с четными значениями.

6) а)составьте программу ,которая заполняет массив а[1..20 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит среднее арифметическое элементов с четными значениями и нечетными индексами.

б) составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , упорядоченные строго по возрастанию.



Вы находитесь на странице вопроса "Составьте программу,которая проверяет,является ли человек заданного возраста школьником,если возраст школьника-от 6 о 17 лет,и выводит на экран", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.