А)1000, б)101, в)11 а)1001, б)100, в)111 а)1010, б)1101, в)10 а)1110, б)10010, в)110 а)1101, б)10100, в)11010 а)11101, б)10101,
ерсина [28]
1) 8;5;3
2) 9;4;7
3)10;13;2
4) 14;18;6
5) 13;20;26
6) 29;21;47
7) 31;58;170
8) 32;73;239
9) 65;49;85
10) 86;52;58
1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.
А)лишнее звук
б)лишнее число
Во вложении - рабочая книга Excel-2003, необходимая программа находится в проекте для первого листе (в коде кнопки).