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

Вигре лото из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90.напишите программу, которая выводит наугад первые 5 выигрышных номеров. доработайте программу так, чтобы все 5 значений были гарантированно разными
выполнять в паскале a b c !

👇
Ответ:
renger100
renger100
09.12.2021

const

 n = 5;

var

 i, j, k: integer;

 a: array[1..n] of integer;

 p: boolean;

begin

 randomize;

 for i := 1 to n do

   repeat

     k := random(90) + 1;

     j := 1;

     p := True;

     while p and (j < i) do

       if a[j] = k then

         p := False

       else

         j := j + 1;

     if p then    

       a[i] := k;

   until p = True;  

 for i := 1 to n do

   write(a[i], ' ');

end.

4,4(95 оценок)
Открыть все ответы
Ответ:
OPTIMIST777
OPTIMIST777
09.12.2021

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Объяснение:

4,4(100 оценок)
Ответ:
MrGoudi
MrGoudi
09.12.2021

Принтер (ағылш. printer) — мәтін мен кескіндерді қағазға немесе басқа да басып шығарылатын арқауларға шығаруға арналған құрылғы, ЭЕМ-ның ақпарат басып шығаруға арналған перифериялық құрылғыларының бір түрі. Баспа таңбаларын басу әдістеріне қарай Принтерлер матрицалық, сия құюшы ағыстық, (струйный), лазерлік, жарықаласыдиодтық, жылулық, сублимац., т.б. болып бөлінеді. Принтердің негізгі техникалық сипаттамаларына оның айыру қабілеті, басу жылдамдығы, материалдардың шығындылығы, фото басу мүмкіндігі, т.б. жатады.

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