51.This storage is non-volatile and has greater capacity: a) Cache b) RAM, ROM C)Secondary storage d) RAM e) Primary storage 52Network Topology: can easily be extended at the ends a) Star b) Pair-topology c) Topology d) Ring e) Bus
Паскаль АВС. Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu; uses crt; const n=4; var i,z,s:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('Введите число'); repeat readln (z); until ((z>0) and (z<power(10,n))); for i:=1 to n do begin s:=s+z mod 10; z:=z div 10; end; if (s mod 3=0) then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); end.
Program Ainur59; uses crt; const n=10; var i,j:integer; matr:array[1..n,1..n] of integer; diag:array[1..n] of integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов'); randomize; writeln('Матрица: '); for i:=1 to n do begin for j:=1 to n do begin matr[i,j]:=random(100)-50; write(matr[i,j]:4,' '); if i=j then diag[i]:=matr[i,j]; end; writeln(); end; writeln(); writeln('Mассив диагональных элементов:'); for i:=1 to n do write(diag[i]:4,' '); end.
Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu;
uses crt;
const n=4;
var
i,z,s:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3');
writeln('Введите число');
repeat
readln (z);
until ((z>0) and (z<power(10,n)));
for i:=1 to n do begin
s:=s+z mod 10;
z:=z div 10;
end;
if (s mod 3=0) then Writeln('Число делится на 3')
else Writeln('Число не делится на 3');
end.