С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 12.05.2020
Сообщений: 2

Составить программу - два числа сравниваются с константой для вывода 3 (или 4) результатов сравнения

12.05.2020, 16:00. Показов 1243. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу (Паскаль): с экрана вводим два значения возраста, в зависимости от введенных возрастов выводится одно из следующих сообщений:

а)1. оба совершеннолетние

2. оба несовершеннолетние

3. только один из вас совершеннолетний

==

б) 1. оба совершеннолетние

2. оба несовершеннолетние

3. только х - совершеннолетний

4. только у -совершеннолетний
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.05.2020, 16:00
Ответы с готовыми решениями:

Составить программу для сравнения цифр старшего и младшего разрядов числа
Дано натуральное число N. Составить программу для сравнения цифр старшего и младшего разрядов этого числа.

Составить программу для вывода строкового представления введенного двузначного числа
Составить программу для вывода строкового представления введенного двузначного числа Вместе с HTML, прошу помочь :cry:

Составить программу , предусматривающую использование класса (TStringGrid) для ввода или вывода матриц
Дана целочисленная квадратная матрица A порядка n, состоящая из нулей и единиц . Найдите количество строк в которых есть хотя бы один ноль.

2
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
13.05.2020, 10:29
Лучший ответ Сообщение было отмечено Manon как решение

Решение

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
var
  age1, age2: byte;
 
begin
  readln(age1, age2);
  if (age1 >= 18) and (age2 >= 18) then
    writeln('оба совершеннолетние')
  else
  if (age1 < 18) and (age2 < 18) then
    writeln('оба несовершеннолетние')
  else
    writeln('только один из вас совершеннолетний');
  readln(age1, age2);
  if (age1 >= 18) and (age2 >= 18) then
    writeln('оба совершеннолетние')
  else
  if (age1 < 18) and (age2 < 18) then
    writeln('оба несовершеннолетние')
  else
  if (age1 >= 18) and (age2 < 18) then
    writeln('только х - совершеннолетний')
    else
  if (age1 < 18) and (age2 >= 18) then    
    writeln('только y - совершеннолетний');
end.
1
0 / 0 / 0
Регистрация: 12.05.2020
Сообщений: 2
13.05.2020, 15:19  [ТС]
Спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.05.2020, 15:19
Помогаю со студенческими работами здесь

Составить программу для вывода первой,второй и четвертой цифры пятизначного числа.
Составить программу для вывода первой,второй и четвертой цифры пятизначного числа.

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

Функция которая сравнивает два целых числа и возвращает результат сравнения в виде знака: >, < или =
Используя функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде знака: &gt;, &lt; или =, вычислить количество...

Написать функцию, которая сравнивает два числа и выдает результат сравнения в виде одного из знаков «<», “>” или «=»
Написать функцию, которая сравнивает два числа и выдает результат сравнения в виде одного из знаков «&lt;», “&gt;” или «=».

Ввести два целых числа X и Y. Составить программу-меню для операций (MULT,DIVIDE,PLUS,MINUS)
Ввести два целых числа X и Y. Составить программу-меню для операций (MULT,DIVIDE,PLUS,MINUS) и выполнить от этого соответствующую операцию...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru