Билет 9

Напишите программу на языке программирования (или составьте алгоритм). Даны два натуральных числа. Найти их наименьшее общее кратное.

Примечание: наименьшим общим кратным двух чисел m и n называется наименьшее натуральное число, которое делится на m и n. Обозначение: НОК(m,n)

Program z3_b9;

Uses crt;

Var

m, n, nok: word;

Begin

Readln(m, n);

nok := m * n;

While m <> n do begin

If m > n

then m := m - n

else n := n - m

End;

Writeln (nok div m);

Repeat Until Keypressed;

End.

Алг z3_b9 (нат m, n, nok)

арг m, n,

рез nok

нач

nok := m * n

Пока m <> n

нц

Если m > n

то m := m - n

иначе n := n – m

все

кц

nok:= div (nok ,m);

кон

Билет 10

Напишите программу на языке программирования (или составьте алгоритм). Заполнить массив В, состоящий из сорока элементов, случайными целыми числами из интервала [–30; 50] и найти максимальный элемент.

Program z3_10;

Uses crt;

Var

A: array[1..40] of integer;

Max,i: integer;

Begin

ClrScr;

Randomize;

Write ('Массив заполнен числами :');

For i:=1 to 40 do

Begin

A[i]:= random (81)-30;

Writeln ( a[i],' ');

End;

Max:=A[1];

For i:=2 to 40 do

if A[i]>Max Then Max:=A[i];

Writeln (' Самое большое число в массиве = ', Max);

repeat until KeyPressed;

end.

Алг z3_10 (цел таб а[1:40] ,цел Max)

арг A

рез Max

нач цел i

для i:=1 до 40

нц

A[i]:= random (81)-30

кц

Max:=A[1]

для i от 2 до 40

нц

если A[i]>Max

то Max:=A[i]

все

кц

кон

Билет 11

Напишите программу на языке программирования (или составьте алгоритм. Дано натуральное число n, целые числа a₁ a₂ a₃ ..., , , а_n . Определите номер предпоследнего из членов последовательности a₁ a₂ a₃ ..., , , а_n кратных 3; если членов, удовлетворяющих данным условиям, нет, то ответом должно быть «нет».

program bilet11;

uses crt;

var

np,nc,n,i:integer;

a:integer;

begin

np:=0;nc:=0;

write('n=');

readln(n);

if n>1 then

begin

for i:=1 to n do

begin

write('a[',i,']=');

readln(a);

if a mod 3=0 then

begin

np:=nc;

nc:=i;

end;

end;

if np=0 then

writeln('Нет')

else

writeln('№ предпоследнего элемента кратного 3=',np);

end

else

writeln('n должно быть больше 0');

repeat until KeyPressed;

end.

Program z3_b11;

Var np,nc,n,i:integer;

a: array{1..100] of integer;

begin

write('n=');

readln(n);

if n>1 then

begin

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

i:=n; np:=0;nc:=0;

While (i>=1) and (np<>2) do Begin

If a[i] mod 3 = o then begin np:=np+1; nc:=i; end;

i:=i -1; end;

if i=0 then writeln (‘нет’) else writeln '№ предпоследнего элемента кратного 3=',nc’);

end;

end.

Алг z3_b11 (цел n, цел таб а[1:100], цел nc)

арг n, а

рез nc

нач цел np, ,i

i:=n; np:=0;nc:=0;

Пока (i>=1) и (np<>2)

нц

если mod(a[i] , 3) = 0

то np:=np+1; nc:=i

все

i:=i -1;

кц

если i=0

то вывод (‘нет’)

иначе вывод ( '№ предпоследнего элемента кратного 3=',nc’);

все

кон