Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Var a:array[1..10] of real; i,j,m:integer; n:real;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.
Компьютеры в интернете различают с помощью IP-адреса(<span>Интернет-протокол) который присваивается компьютеру при подключению к интернету.
Документы в интернете различают по их названию и типу файла</span>
А)1000001(значит 2 единицы)
Б)1111011(значит 6 единиц)
Тело цикла будет выполнено 4 раза и массив будет изменяться так:
1 проход [1,5,0,0,0]
2 проход [1,5,10,0,0]
3 проход [1,5,10,16,0]
4 проход[1,5,10,16,23]
Ответ: Г