Var
n,i:integer;
Begin
Write('n = ');Read(n);
i:=0;
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write('Верно')
else Write('Не верно')
End.
Ответ:
CD AC3 DVD-AUDIO MP3 AAC WMA
Объяснение:
1. Ответ:3. <em>В условном операторе перед ELSE не должно быть ";".</em>
2. Ответ:4. <em>Просто в программу вбиваешь код и проверяешь :)</em>
3.<em>Предположим у нас есть массив.</em>
If (a[i]<0) and (a[i] mod 6=0) then b[i]:=a[i] , где
<em>i-индекс</em>
<em>a[i],b[i]- элементы массива.</em>
<em><u>Т. е. мы смотрим, выполняется ли условие. Если да, то записываем это число в новый массив.</u></em>
Из какой системы переводить?
1.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.