при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Ответ дал: Гость
var
i,j,k: integer;
a,b,c: array [1..30] of integer;
begin
randomize;
j: =0;
k: =0;
for i: =1 to 30 do
begin
a[i]: =random(80)-30;
if a[i] mod 2 =0 then
begin
j: =j+1;
b[j]: =a[i]
end
end;
for i: =30 downto 1 do
if a[i]< 0 then
begin
k: =k+1;
c[k]: =a[i];
end;
for i: =1 to j do
writeln(b[i]);
for i: =1 to k do
writeln(c[i]);
end.
Ответ дал: Гость
есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.
и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k> =4 then write(i: 3); уберите знак > .
1 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 1 to i do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
2 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 2 to (i-1) do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
Ответ дал: Гость
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
begin
s: =str(num);
for i: = 1 to length(s) do
sumofnumber: = sumofnumber+int(s[i]);
end;
begin
read(x1,x2,x3);
s1: =sumofnumber(x1);
s2: =sumofnumber(x2);
s3: =sumofnumber(x3);
if s1> s2 and s1> s3 then writeln(x1);
if s2> s1 and s2> s3 then writeln(x2);
if s3> s2 and s3> s1 then writeln(x3);
end.
в правильности написания функции типов не уверенна.
Популярные вопросы