program ex; uses crt; var n : integer; begin clrscr; write('n='); readln(n); if (n mod 5)=0 then writeln (n,' delitsya na 5 bez ostatka') else writeln (n,' ne delitsya na 5 bez ostatka'); if (n mod 4)=0 then writeln (n,' delitsya na 4 bez ostatka') else writeln (n,' ne delitsya na 4 bez ostatka'); end.
Ответ дал: Гость
var
a : array[1..10] of intenger; b : intenger; begin
b: =1;
for i: = 1 to 10 do
begin
a[i]: =i+i*i;
end; for i: = 1 to 5 do begin b: =b*a[i*2]; end; for i: =1 to 5 begin writeln(' ',a[i*2]); end; writeln('произведение элементов массива, стоящих на четных местах=',b);
end.
Ответ дал: Гость
число записано в пятеричной системе счисления. в отличие от десятичной в ней каждый следующий разряд не в 10 раз крупнее предыдущего, а только в 5.
в первом разряде идут единицы, потом пятерки, потом 25-ки, потом 125-ки
Популярные вопросы