М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Samlina
Samlina
15.05.2021 20:30 •  Информатика

Программа в паскаль которая выбирает рандомно одну из надписей.

👇
Ответ:
SashaKo9420
SashaKo9420
15.05.2021
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Randomize;
  case Random(1,3) of
  1:Writeln('Скоро каникулы!');
  2:Writeln('Надоела мне учеба!');
  3:Writeln('Не хочу заниматься информатикой!')
  end
end.
4,7(51 оценок)
Ответ:
sqdanf1eld
sqdanf1eld
15.05.2021
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.
4,6(54 оценок)
Открыть все ответы
Ответ:
Sonechka20052005
Sonechka20052005
15.05.2021
На C++ #include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;int main()
{
   srand(time(0));
   int counter = 0;
   int growth;   for(int i = 0; i < 50; i++)
   {
      if((growth = rand() % 151 + 150) >= 170)
      {
         counter++;
      }
      cout << growth << ' ';
   }
   cout << endl << endl;   cout << counter << " pupil";
   cout << (counter != 1 ? "s" : "") << endl; // Если будет только 1 ученик,
                                             //то больше ничего не печатать
                                             //иначе - допечатать букву "s"   cin.get();
   return 0;
4,4(93 оценок)
Ответ:
Winny1111
Winny1111
15.05.2021

from random import*

def kratnye(chuslo,spysok,chusla,sluchay):

while(chuslo!=0):

chuslo=int(input("Введите число"))

if(chuslo>0):

spysok.append(chuslo)

else:

if(sluchay<5):

for x in spysok:

if(x/5 in range(1,1000,1)):

chusla=chusla+1

print("Чисел, которые делятся на 5:",chusla-1)

elif(sluchay>5):

for x in spysok:

if(x/9 in range(1,1000,1)):

chusla=chusla+1

else:

continue

print("Чисел, которые делятся на 9:",chusla-1)

a=int(input("Напишите 1 чтобы начать, 0 чтобы закончить программу"))

b=[]

c=1

d=randint(1,11)

kratnye(a,b,c,d)

4,7(61 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ