сервис вопросов и ответовНапишите простейшую задачку в Pascal (алгоритмы ветвления if then):
10-11 класс|
|
Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет".
--------------------------
Например, я вводу "150" и вместе с числом выходит "лет"
или я ввожу "21" и вместе с числом выходит "год"
Azam4ik
22 нояб. 2016 г., 6:58:17 (7 лет назад)
Anna230
22 нояб. 2016 г., 8:52:45 (7 лет назад)
var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end.
Ответить
Другие вопросы из категории
Помогите!!создайте программу в которой, в массиве из 5 строк и 5 столбцов, заполненном случайными числами, будет выполняться сложение элементов столбца,
номер которого вводится с клавиатуры.
4. В алгоритме, записанном ниже, используются целочисленные переменные k и m. Определите значение переменной m после
исполнения данного алгоритма:
1. Определите, имеет ли решение уравнение 990(x) : 60(x) = 1110(3), где x – неизвестное основание системы
счисления, и если
да, то укажите значение x в качестве ответа.
Читайте также
Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция (if, then, else и проч.)
Задача 1
Все четные элементы массива возвести в квадрат, а нечетные удвоить. Если можно, то напишите простыми командами, самыми базовыми. Чтобы
было просто и понятно...Спасибо!)
Pascal ABC
Оператор case of и if then else:
Задача 1
Вводятся 3 числа. Можно
ли построить треугольник с такими сторонами? Если построить треугольник можно,
то определить, является ли он
равносторонним, равнобедренным или прямоугольным?
3. Даны два неравных числа X и Y. Большее из них заменить на сумму этих чисел, а меньшее увеличить в три раза.
4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а3, в3, с3. Найти и вывести на экран периметр меньшего треугольника.
Алгоритмы ветвления
Вы находитесь на странице вопроса "Напишите простейшую задачку в Pascal (алгоритмы ветвления if then):", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.