Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше,сообщает "Замечательно. Вы уже можете водить автомобиль", а в
5-9 класс
|
противном случае-"К сожалению, водить автомобиль вам рано".
var
a : integer;
begin
writeln('сколько вам лет');
readln(a);
if a>18 then
writeln('замечательно.Вы уже можете водить машину ')
else
writeln('вам нет 18 Водить вам рано');
end.
var
age: integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age >= 18 then
writeln('Замечательно. Вы уже можете водить автомобиль')
else
writeln('К сожалению, водить автомобиль вам рано');
end.
Другие вопросы из категории
C:(A+B)*(B-A)
writeln(C)
end.
Задача связана с программой паскаль.
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае:
Читайте также
день», «Добрый вечер», «Спокойной ночи».
2. Составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
Помогите решить 2 задачи
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.