Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента - id737598820220324 от zeinalovazahra 24.03.2022 14:53

Question

Информатика: Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й — равен сумме текущих индексов, увеличенной в 10 раз; 2-й — равен целой части от деления случайного числа на сумму текущих индексов; 3-й — равен разности двух предыдущих элементов.

zeinalovazahra · Accepted Answer

Program n1;
var k,n,i: longint;
co: byte;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
function cr(a: longint): boolean;
var n: longint;
begin
n:=a;
cr:=false;
repeat
n:=n div 10;
until n mod 10 =n;
if n=(a mod 10) then
begin
cr:=true;
end;
end;
begin
readln(k,n);
for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then
begin
write(i,' ');
co:=1;
end
end;
if co=0 then write(0);
end.

MOGZ ответил