Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
var i, j, k, min : integer;
a: array[1..10, 1..20] of integer;
b: array[1..10] of integer;
for i: =1 to 10 do
for j: =1 to 20 do
readln(a[i,j]);
b[i]: =0;
b[i]: =b[i]+a[i,j];
end;
min: =b[1]; k: =1;
for i: =2 to 10 do
if b[i]< min then begin max: =b[i]; k: =i end;
writeln('наименьшая сумма элементов =', min);
writeln('она находится в строке -', k);
readln
а)сумм(a5: b7)
б)срзнач(c4: c7)
в десятичной:
45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33
106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65
в двоичной:
45 = 101101
106 = 1101010
Популярные вопросы