Вопрос по информатике:
Программа в паскаль которая выбирает рандомно одну из надписей.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
Пожаловаться
- 22.12.2017 11:08
- Информатика
- remove_red_eye 9876
- thumb_up 19
Ответы и объяснения 2
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Randomize;
case Random(1,3) of
1:Writeln('Скоро каникулы!');
2:Writeln('Надоела мне учеба!');
3:Writeln('Не хочу заниматься информатикой!')
end
end.
Внимание! Если программа не работает, обновите версию!
begin
Randomize;
case Random(1,3) of
1:Writeln('Скоро каникулы!');
2:Writeln('Надоела мне учеба!');
3:Writeln('Не хочу заниматься информатикой!')
end
end.
Пожаловаться
- 23.12.2017 16:02
- thumb_up 39
Var a,i,rand: Integer;
sa,sas: string;
begin
writeln('Кол-во надписей');
readln(a);
rand:=Random(a);
for i:=1 to a do
begin
writeln('Введите ',i,' текст');
readln(sas);
if rand=i then sa:=sas;
end;
writeln('Текст: ',sa);
end.
sa,sas: string;
begin
writeln('Кол-во надписей');
readln(a);
rand:=Random(a);
for i:=1 to a do
begin
writeln('Введите ',i,' текст');
readln(sas);
if rand=i then sa:=sas;
end;
writeln('Текст: ',sa);
end.
Пожаловаться
- 24.12.2017 06:41
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы