Составить программы для решения задач на языке паскаль ABC: 1)Определить, является ли целое число N кратным числу 5. 2)Определить, является ли число C средним арифметическим чисел A и B (A, B, C - вводятся с клавиатуры). 3)Компьютер спрашивает: "Сколько вам лет?". Если ответ меньше 14, то отвечает "Вам еще рано получать паспорт". Если ответ больше или равен 14 отвечает "Поздравляю! Вы гражданин России!". 4)Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)

Предыдущий
вопрос Следующий
вопрос

Программа 1:

program CheckMultipleOf5;
var
N: integer;
begin
write('Введите целое число N: ');
readln(N);
if N mod 5 = 0 then
writeln('Число ', N, ' кратно 5')
else
writeln('Число ', N, ' не кратно 5');
end.

Программа 2:

program CheckAverage;
var
A, B, C: real;
begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
write('Введите число C: ');
readln(C);
if C = (A + B) / 2 then
writeln('Число ', C, ' является средним арифметическим чисел ', A, ' и ', B)
else
writeln('Число ', C, ' не является средним арифметическим чисел ', A, ' и ', B);
end.

Программа 3:

program CheckAge;
var
age: integer;
begin
write('Сколько вам лет? ');
readln(age);
if age < 14 then
writeln('Вам еще рано получать паспорт')
else
writeln('Поздравляю! Вы гражданин России!');
end.

Программа 4:

program CheckTemperature;
var
temperature: real;
begin
write('Введите температуру тела: ');
readln(temperature);
if (temperature > 36) and (temperature < 37) then
writeln('Человек здоров')
else
writeln('Человек болен');
end.