Перевести на язык программирования следующие команды 1 число n кратно 4 2 число n кратно 7 3 число n - id598023720201221 от esken576 21.12.2020 18:25

Question

Информатика: Перевести на язык программирования следующие команды 1 число n кратно 4 2 число n кратно 7 3 число n оканчивается на 4 4 число n оканчивается на 7 5 число n кратно 4 и оканчивается на 7 6 число n кратно 7 и оканчивается на 4 7 число n кратно 7 или оканчивается на 4 8 число n кратно 7 или кратно 4 9 число n кратно 7 и кратно 4 10 число оканчивается на 4 или на 7

esken576 · Accepted Answer

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

A[i]:=random(15)+1;

write(A[i]:4);

end;

for i:=1 to n-1 do

begin

for j:=1 to n-1 do

if summa(A[j])<summa(A[j+1]) then

begin

k:=A[j];

A[j]:=A[j+1];

A[j+1]:=k

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.

MOGZ ответил