текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно
30 символов = 30 байт или 30 * 8 = 240 бит
Ответ дал: Гость
var s: string;
i,j,k: integer;
unique: boolean;
begin
for i : = 1000 to 9999 do
begin
s : = str(i);
unique: =true;
for j: = 1 to length(s)-1 do
for k : = j+1 to length(s) do
begin
if s[j] = s[k] then unique: =false;
end;
if unique then
writeln(i);
end;
end.
может длинее, но универсальное.
Ответ дал: Гость
var a: array [1..30] of integer;
i: integer;
begin
for i : = 1 to 30 do
begin
a[i]: = 5+5*0.05*(i-1)+2;
writeln(a[i]);
end.
end.
Ответ дал: Гость
program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.
Популярные вопросы