1. Написать программу, которая спрашивает «Который час?» и, в зависимости от введенного времени, выводит на экран приветствие: «Доброе утро», «Добрый
5-9 класс
|
день», «Добрый вечер», «Спокойной ночи».
2. Составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
Помогите решить 2 задачи
1)
var x:integer;
beginwrite('который час? ');
read(x);
If (x>=0) and (x<6) then writeln('Спокойной ночи');
If (x>=6) and (x<12) then writeln('Доброе утро');
If (x>=12) and (x<18) then writeln('Добрый день');
If (x>=18) and (x<24) then writeln('Добрый вечер');
end.
2)
var a,b,x:integer;
beginwrite('введите рост: ');
read(a);
write('введите вес: ');
read(b);
x:=a-100;
if x>b then writeln('Нужно поправиться')
else
writeln('Нужно поxудеть');
end.
Другие вопросы из категории
числами.Назовите дату рождения каждой девочки.
Читайте также
программу, которая спрашивает «Который час?» и, в зависимости от введенного
времени, выводит на экран приветствие: «Доброе утро», «Добрый день», «Добрый
вечер», «Спокойной ночи».
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива