Здравствуйте! Помогите пожалуйста решить задачу
5-9 класс
|
Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. Напечатайте соответствующее этому времени сообщение: "Доброе утро", "Добрый день",
"Добрый вечер", "Доброй ночи".
var day:byte;
begin
randomize;
day:=random(24);
case day of
5..11:writeln('Доброго утра');
12..17:writeln('Доброго Дня');
18..22:writeln('Доброго Вечера');
23, 1..4:writeln('Доброй ночи');
end;
writeln(day);
end.
var a:integer;
begin
a:=random (24);
writeln ('время: ',a);
case a of
5..10: writeln ('доброе утро');
11..16: writeln ('добрый день');
17..23:writeln ('добрый вечер);
0,1..4: writeln ('доброй ночи');
end;
end.
на Паскале нужно?
я попробую, но не обещаю
Другие вопросы из категории
в сообщение "комп не может работать, обратитесь в тех поддержку"
Номер 12,13,14,15,16 помогите!!! Даю 40 баллов
1) Переведите 9 Кб в байты.
2) Переведите 4 Мб в байты.
3) Переведите 41 Кб в биты.
4) Какой объём информации в
Кб передаётся за 6 мин. 16 сек.,
при скорости передачи информации 8192 бод?
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
1000.Нужно изменить программу так,чтобы она находила:
а) дробную часть чисел;
б) произведение чисел, меньших 22;
в) сумму чисел, которые попадают в промежуток [10, 50]. Заранее,спасибо большое!)))))
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
Помогите, пожалуйста, решить задачу!
Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
проехал 5000 м,в каждую след.минуту он проезжал путь в 2 раза больше чем предыдущий.Определите какой путь пройдёт автомобиль в 5 минут от начала движения. СРОЧНО ОЧЕНЬ ПОМОГИТЕ ПОЖАЛУЙСТА!!!