Составьте программу,которая выводит на экран приветствие в зависимости от времени суток (от 8 до 12 - утро), (от 12 до 17 - день), (от 17 до 23 - вечер)
5-9 класс
|
В паскале
begin
writeln('Введите сколько сейчас часов');
readln(Time);
if (Time >= 8) and (Time < 12) then writeln('Доброе утро!');
if (Time >= 12) and (Time < 17) then writeln('Добрый день!');
if (Time >= 17) and (Time < 23) then writeln('Добрый вечер!');
if (Time = 23) or ((Time >= 0) and (Time < 8)) then writeln('Доброй ночи!');
end.
Другие вопросы из категории
помогите!!!!
отсортировать в порядке возрастания элементов. Вывести:
- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки прошу. срочно!
2. Что такое растр? Что такое пиксел?
3. Как вы понимаете слова "изображение выполнено с разрешением 640x480"?
4. Что такое графический примитив?
5. В чем состоят особенности векторной графики?
6. Какие вы знаете объекты растровой графики?
7. Перечислите основные действия над объектами растрового графического редактора.
Заранее спасибо
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
x:=2;
у:=5;
х:=у;
у:=х;
2. Какую задачу решает данная программа?
program primer
var a,b,c: integer;
begin
writeln("введите двухзначное число ");
readln(a);
b:=a div 10 ;
c:=a mod 10;
write(c*10+b);
end.
а)находит сумму цифр числа;
б)вычесляет целую часть и остаток от деления числа на 10 ;
в)меняет цифры числа местами
г)находит цифры числа, а на экран выводит само число
3. Среди предложенных выражения выбирете логические :
а) (x=3)or (x<>4)
б)2*x+5;
в)x mod 2=0;
г)x div 3
д) x+у=10
е) х+у
ж)(х+у>5)or(x-у>5)
з)(х>3)and (х<=10)
4. Составьте условие для условного оператора в программе , которая выводит на экран приветствие в зависимости от времени суток . Пусть утро с8 до 12 ч, день с12 до 17 ч , вечер с 17 до 23ч, ночь-всё остальное время.
program primer;
begin
writeln("Который час?");
readln(x);
if__________then writeln('Доброе утро!');if__________then writeln('Добрый день!');
if__________then writeln('Добрый вечер!');
if__________then writeln('Доброй ночи!");
if__________then writeln('Введите число выходит за рамки интервала [0,24]');
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Составьте программу, которая выводит на экран сумму четных чисел от 30 до 60