artem-whitenoise142
?>

Нужно написать программу на pascal. программа должна выводить 20 случайных чисел от 1 до 26 и чтобы они не повторялись. числа должны сохранятся в массиве. заранее !

Информатика

Ответы

razumeiko0790
Var a:array[1..20] of integer;
c,b,i,d: integer;
begin
c:=0;
b:=0;
for i:= 1 to 20 do
begin
a[i]:=random (1,26);
while (b <> 1) do
begin
for d:= 1 to i-1 do
if (a[i] = a[d]) then c:=1;
if (c = 1) then a[i]:=random (1,26) else b:=1;
c:=0;
end;
end;
for i:= 1 to 20 do
writeln(a[i]);
end.

P.S. Не уверен что правильно,т.к. не могу проверить программу в паскале
Igorevich1512

1.)

summ=0     #Общая сумма

counter=0     #Количество введённых чисел

while True:     #Бесконечный цикл

   number=int(input())     #Пользователь вводит число

   if number==0:     #Если число которое ввёл пользователь равно 0...

       break     #Бесконечный цикл прерывается

   else:     #В противном случае...

       summ+=number #К общ. сумме прибав. чис. которое ввёл польз.

       counter+=1    #К количеству введённых чисел прибавляется 1

if summ==0:    #Если общая сумма равна 0...

   print("ERROR")     #Выводится сообщение об ошибке

else:     #В противном случае...

   print(summ/counter)     #Общая сумма делится на количество введённых чисел выводится на экран

2.)

foot=int(input())     #Пользователь вводит кол-во футов

inch=int(input())     #Пользователь вводит кол-во дюймов

print(foot*30.48+inch*2.54)     #Вес переведённый в сантиметры выводится на экран

Fedorovna

1.)

summ=0     #Общая сумма

counter=0     #Количество введённых чисел

while True:     #Бесконечный цикл

   number=int(input())     #Пользователь вводит число

   if number==0:     #Если число которое ввёл пользователь равно 0...

       break     #Бесконечный цикл прерывается

   else:     #В противном случае...

       summ+=number #К общ. сумме прибав. чис. которое ввёл польз.

       counter+=1    #К количеству введённых чисел прибавляется 1

if summ==0:    #Если общая сумма равна 0...

   print("ERROR")     #Выводится сообщение об ошибке

else:     #В противном случае...

   print(summ/counter)     #Общая сумма делится на количество введённых чисел выводится на экран

2.)

foot=int(input())     #Пользователь вводит кол-во футов

inch=int(input())     #Пользователь вводит кол-во дюймов

print(foot*30.48+inch*2.54)     #Вес переведённый в сантиметры выводится на экран

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нужно написать программу на pascal. программа должна выводить 20 случайных чисел от 1 до 26 и чтобы они не повторялись. числа должны сохранятся в массиве. заранее !
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Наталья_Васищев
zhannasokortova
kgrechin
sveremeev816
Alyona744
lika080489
ribcage52
magsh99
natasham-716
АлександрАлина
Plamia7917
Измайлова-Алексей
vladimir686
elvini857
ldstroy