Составить программы для решения задач на языке паскаль ABC: 1)Определить, является ли целое число N кратным числу 5. 2)Определить, является ли число C средним арифметическим чисел A и B (A, B, C - вводятся с клавиатуры). 3)Компьютер спрашивает: "Сколько вам лет?". Если ответ меньше 14, то отвечает "Вам еще рано получать паспорт". Если ответ больше или равен 14 отвечает "Поздравляю! Вы гражданин России!". 4)Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)
Составить программы для решения задач на языке паскаль ABC: 1)Определить, является ли целое число N кратным числу 5. 2)Определить, является ли число C средним арифметическим чисел A и B (A, B, C - вводятся с клавиатуры). 3)Компьютер спрашивает: "Сколько вам лет?". Если ответ меньше 14, то отвечает "Вам еще рано получать паспорт". Если ответ больше или равен 14 отвечает "Поздравляю! Вы гражданин России!". 4)Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа 1:
program CheckMultipleOf5;var
N: integer;
begin
write′ВведитецелоечислоN:′'Введите целое число N: '′ВведитецелоечислоN:′;
readlnNNN;
if N mod 5 = 0 then
writeln′Число′,N,′кратно5′'Число ', N, ' кратно 5'′Число′,N,′кратно5′ else
writeln′Число′,N,′некратно5′'Число ', N, ' не кратно 5'′Число′,N,′некратно5′;
end.
Программа 2:
program CheckAverage;var
A, B, C: real;
begin
write′ВведитечислоA:′'Введите число A: '′ВведитечислоA:′;
readlnAAA;
write′ВведитечислоB:′'Введите число B: '′ВведитечислоB:′;
readlnBBB;
write′ВведитечислоC:′'Введите число C: '′ВведитечислоC:′;
readlnCCC;
if C = A+BA + BA+B / 2 then
writeln′Число′,C,′являетсясреднимарифметическимчисел′,A,′и′,B'Число ', C, ' является средним арифметическим чисел ', A, ' и ', B′Число′,C,′являетсясреднимарифметическимчисел′,A,′и′,B else
writeln′Число′,C,′неявляетсясреднимарифметическимчисел′,A,′и′,B'Число ', C, ' не является средним арифметическим чисел ', A, ' и ', B′Число′,C,′неявляетсясреднимарифметическимчисел′,A,′и′,B;
end.
Программа 3:
program CheckAge;var
age: integer;
begin
write′Скольковамлет?′'Сколько вам лет? '′Скольковамлет?′;
readlnageageage;
if age < 14 then
writeln′Вамещеранополучатьпаспорт′'Вам еще рано получать паспорт'′Вамещеранополучатьпаспорт′ else
writeln′Поздравляю!ВыгражданинРоссии!′'Поздравляю! Вы гражданин России!'′Поздравляю!ВыгражданинРоссии!′;
end.
Программа 4:
program CheckTemperature;var
temperature: real;
begin
write′Введитетемпературутела:′'Введите температуру тела: '′Введитетемпературутела:′;
readlntemperaturetemperaturetemperature;
if (temperature > 36) and (temperature < 37) then
writeln′Человекздоров′'Человек здоров'′Человекздоров′ else
writeln′Человекболен′'Человек болен'′Человекболен′;
end.