Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Здравствуйте! Помогите пожалуйста решить задачу

5-9 класс

Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. Напечатайте соответствующее этому времени сообщение: "Доброе утро", "Добрый день",
"Добрый вечер", "Доброй ночи".

алина1111199777 11 авг. 2013 г., 19:09:41 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Arinaonline9
11 авг. 2013 г., 21:43:09 (10 лет назад)

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. 

+ 0 -
Miki222
11 авг. 2013 г., 22:27:44 (10 лет назад)

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.

+ 0 -
AkininaNadya
11 авг. 2013 г., 23:40:43 (10 лет назад)

на Паскале нужно?

+ 0 -
Dgdhzylfia121211
12 авг. 2013 г., 1:58:15 (10 лет назад)

да

+ 0 -
опфцункамцфурль
12 авг. 2013 г., 4:05:48 (10 лет назад)

я попробую, но не обещаю

Ответить

Другие вопросы из категории

что делать если при включение компьютер выдает сообщение и выключается.

в сообщение "комп не может работать, обратитесь в тех поддержку"

Помогите сделать самостоялку

Номер 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 задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)

Решение задач с использованием массивов / Pascal (Паскаль)

Помогите, пожалуйста, решить задачу!

Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: 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;

Поомогите пожалуйста решить задачи по информатике. 1.Для всех чётных чисел от 6 до 12 найти "Q" каждого числа. 2.Автомобиль за 1 минуту своего движения

проехал 5000 м,в каждую след.минуту он проезжал путь в 2 раза больше чем предыдущий.Определите какой путь пройдёт автомобиль в 5 минут от начала движения. СРОЧНО ОЧЕНЬ ПОМОГИТЕ ПОЖАЛУЙСТА!!!



Вы находитесь на странице вопроса "Здравствуйте! Помогите пожалуйста решить задачу", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.