Дано положительное число x, являющееся возрастом человека в годах. Определить, человек совершеннолетний или нет. Выдать на экран соответствующее
5-9 класс
|
сообщение. ПАСКАЛЬ!!!
Program qwe;
Uses crt;
var x:real;
begin
clrscr;
Write('Введите возраст: ');
Readln(x);
if x>18 then writeln('DA') else writeln('NET');
readkey;
end.
Другие вопросы из категории
00001110111100001101100111011101 ? Поясните свой ответ.
1) Какие виды программ можно выделить по их правовому статусу?
Читайте также
вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).
3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.
cрочно надо на языке паскаль составить плиз)
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ