1)program gt;
var n:integer;
begin
readln(n);
if(n>17)then writeln('YES')else writeln('NO');
end.
2) program gt;
var x,y:real;
begin
readln(x);
if(x>0)then y:=x-2;
if(x<0)then y:=x*x;
writeln(y);
end.
3)
program gt;
var n:integer;
begin
case n of
1: writeln('RED');
2: writeln('orange');
3: writeln('yellow');
4:....
5:...
6:...
7:....
end;
end.
5Баллов слишком мало.
1.
<u>алг</u> сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
<span><u>кон</u>
2.
</span><u>алг</u> произведение
нач цел mult=1,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
mult:=mult*a[i]
кц
вывод mult
<u>кон</u>
3.
<u>алг</u> максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
<span><u>кон</u></span>
Двоичная система счисления- числа состоят только из 0 и 1, например:
01010101 в двоичной - 85 в десятичной системе счисления.
01111 - 15
11111 - 31
10011011 - 155
111101101 - 493
Восьмеричная система счисления- числа от 0 до 7, например:
5267 в восьмеричной - 2743 в десятичной системе счисления.
1267 в восьмеричной- 695 в десятичной системе счисления.
1. 71*35*50*(на "вес" одного символа, которое в задании не указывается)
результат разделить на 1024 получатся Килобиты, еще на 8 Килобайты. Пишите, пожалуйста, полностью
2. 1 байт на символ. 14 символов.
отв: 14 байт