А) Число 5 простое.
б) Число 5 простое И Луна - спутник Венеры.
в) Число 5 простое ИЛИ Луна - спутник Венеры.
Истинные высказывания: а и в
<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>
1) 101010 (2) ⇒ 101 010 (2) = 52 (8)
52 (8) = 5х8+2=42 (10)
42 / 16 = 2 и 10 остаток. ⇒ 42 (10) = 2А (16)
2) 127 (8) = 1 010 111 (2)
127 (8) = 1x8^2+2x8+7=64+16+7=87 (10)
87 / 16 = 5 и 7 остаток. ⇒ 87 (10) = 57 (16)
3) 321 (10) / 16 = 20 и 1 остаток. 20 / 16 = 1 и 4 остаток. ⇒ 321 (10)=141 (16)
141 (16) = 1 0100 0001 (2)
1 0100 0001 (2) = 101 000 001 (2) = 501 (8)
4) 3А (16) = 3х16+10 = 48+10 = 58 (10)
3А (16) = 11 1010 (2)
11 1010 (2) = 111 010 (2) = 72 (8)
Итого в строках таблицы
101010 52 42 2А
1010111 127 87 57
101000001 501 321 141
111010 72 58 3А
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф