До ть будь ласка. Написати програму визначення чи є в масиві розміром 50 елементів заповнених випадковими числами від 1 до 100 хоча б один, що ділиться на 7 без остачі
Ответы на вопрос:
Ищем число в одномерном массиве, которое делится на 7 без остатка и выводим само число и его номер на экран.
program raf105;
var
a,b: array of integer;
i,x: integer;
procedure divide7(x: integer; arr: array of integer);
begin
arr[0]: = x div 1000000;
arr[1]: = (x div 100000) mod 10;
arr[2]: = (x div 10000) mod 10;
arr[3]: = (x div 1000) mod 10;
arr[4]: = (x div 100) mod 10;
arr[5]: = (x div 10) mod 10;
arr[6]: = x mod 10;
end;
begin
setlength(a,7);
setlength(b,7);
writeln('добро в игру "лотерея"! ');
write('введите семизначное число: ');
readln(x);
writeln;
divide7(x,a);
x: = random(1000000,9999999);
divide7(x,b);
write('введённые числа: ');
for i: =0 to 6 do
write(a[i],' ');
writeln;
write('сгенерированные числа: ');
for i: =0 to 6 do
write(b[i],' ');
end.
2 вариант (без процедуры)program raf105;
var
a,b: array[1..7] of integer;
i,x: integer;
begin
writeln('добро в игру "лотерея"! ');
write('введите семизначное число: ');
readln(x);
writeln;
a[1]: = x div 1000000;
a[2]: = (x div 100000) mod 10;
a[3]: = (x div 10000) mod 10;
a[4]: = (x div 1000) mod 10;
a[5]: = (x div 100) mod 10;
a[6]: = (x div 10) mod 10;
a[7]: = x mod 10;
x: = random(1000000,9999999);
b[1]: = x div 1000000;
b[2]: = (x div 100000) mod 10;
b[3]: = (x div 10000) mod 10;
b[4]: = (x div 1000) mod 10;
b[5]: = (x div 100) mod 10;
b[6]: = (x div 10) mod 10;
write('введённые числа: ');
for i: =1 to 7 do
write(a[i],' ');
writeln;
write('сгенерированные числа: ');
for i: =1 to 7 do
write(b[i],' ');
end.
pascalabc 3.4.2Популярно: Информатика
-
gnastena02105.06.2023 08:35
-
Zubu21.04.2022 23:08
-
ladiaginairina08.08.2020 11:44
-
korzhukova02112.09.2021 05:59
-
pety123420.08.2020 05:29
-
pnzarKarina23.04.2021 15:41
-
c1Darkness1c08.06.2022 23:32
-
ashirova120928.06.2022 21:36
-
sweetdog731.10.2022 06:31
-
заразарема28.04.2023 11:38