program raf105;
var
i: integer;
begin
for i:=50 to 57 do
writeln(i,' ');
end.
2.program raf105;
var
i,c,sum: integer;
sari: real;
begin
for i:=6 to 14 do
begin
sum:= sum+i*i;
c:= c+1;
end;
sari:= sum/c;
writeln('Среднее арифметическое: ',sari);
end.
3.program raf105;
var
i,n,sum: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
if i mod 2 = 0
then sum:= sum+i*i;
writeln('Сумма квадратов чётных чисел: ',sum);
end.
PascalABC 3.4.2
1.
2-й игрок получает информацию о том, на какую клетку походил первый. Так как это уже третий ход первого, значит перед этим были заняты 4 клетки (два хода первого + два хода второго). Это значит, что перед 3-м ходом первого свободны 25 - 4 = 21 клетка. Для кодирования информации об одной из 21 клеток нужно 5 бит (решаем неравенство N<=2^i, подбирая минимально возможное значение i)
ответ: 5 бит
2.
1/512 Мбайт = (1024/512) Кбайт = 2 Кбайт = 2048 байт
Всего 2048 символов, значит, для кодировки одного символа нужен 1 байт .
1 байт = 8 бит
С бит можно закодировать 2^8=256 символов
ответ: размер алфавита 256 символов
3.
Для кодировки каждого символа 16-символьного алфавита нужно 4 бит
(решаем неравенство 16<=2^i, подбирая минимально возможное значение i). Далее, одна страница текста содержит 30 * 50 = 1500 символов.
6 страниц текста содержат 6 * 1500 = 9000 символов.
Весь текст содержит 9000 символов * 4 бит = 36000 бит = 4500 байт (приблизительно 4,39 Кбайт)
ответ: 4500 байт
Примеры:
- система автоматической терморегуляции поддерживает заданную температуру (управляющее устройство получает информацию от температурных датчиков, обрабатывает ее - сравнивает реальную температуру с заданной, и передает команды нагревательному элементу - усилить или уменьшить нагрев) - например в кондиционерах
- система программного управления обеспечивают стирку в стиральной машине в заданном режиме
- система записи звука в диктофоне
- система управления станком с ЧПУ (числовым программным управлением)
Var a,b,c,d,e: Integer;
Begin
Writeln (' Введите количество порций мороженого ');
Readln(a);
Writeln (' Введите количество плиток шоколада ');
Readln(b);
c:=a*30;
d:=b*72;
e:=c+d;
write(' Вы потратили ' , e);
End.