Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
1 символ = 1 байту, в слове 10 букв, значит информационный объем будет равен 10 байтам
Ответ: 38 учеников. Примерно 50/50 мальчиков и девочек
Ответ:
Объяснение:
int number = 1; //тут нужное число
number = System.Math.Abs(number); //Данная функция возвращает абсолютное значение числа. То бишь, всегда положительное.
// Проверять отдельно, меньше ли число 0 и множить на -1 не нужно. Все через эту функцию.
Var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(41)-20;
write(mas[i],' ');
end;
end.