245: 10100101
573: 101111011
Program test;
var
a:array[1..5] of integer;
i:byte;
begin
for i:=1 to 5 do
Readln(a[i]);
Write('Получившийся массив:');
for i:=1 to 5 do
Write(' ',a[i])
end.
Издеваться изволите? Сварите вашего учителя заживо (это не призыв к насилию, а едкое замечание!), если он предлагает такие задачи.
Pascal:
var i, n: integer;
begin
n:=0;
for i:=10 to 99 do
if ((i mod 10)+(i div 10)=7) then inc(n);
writeln('Otvet: ',n, 'number(s)');
readln
end.
<span>1. </span>В гигабайте 1024 мегабайт. 1) 120*1024 = 122880 - это мегабайт в 120 гигабайтах
2) 122880/512= 240.
<span>Ответ: в 240 раз.
2. 0,5 Кбайт - 512 байт
т.к. 1 байт - 8 бит, следовательно 512 байт - это 4096 бит ( обьем первого сообщения)
1) 4096 - 500=3596 бит =</span><span>449,5 байт
3. 1) </span>8 Гб * 1024 = 8192 Мб
2) 8192 / 150 = 54,61333
Ответ: 54
4. 1 символ = 1 байт.Строка : 40 символов * 1 байт = 40 байт.Страница : 50 строк *40 байт = 2000 байт.Книга : 200 страниц * 2000 байт = 400 000 байт / 1024 = 390,625 Кб<span>На 1 дискету вместится:
1) 1440 Кб : 390,625 Кб = 3,6864 = 3,6 книг</span>
<span>На 1</span><span> </span><span>CD</span><span>-</span><span>Disk</span><span>. вместится:</span>
800 Мб : 390,625 Кб = 800 Мб * 1024 = 819 200 Кб : 390,625 Кб = 2097, 152 книги...
Нужно составить уравнения трех прямых, ограничивающих область (см. вложение). А затем можно писать программу. Считаем попаданием в область, если точка находится строго ВНУТРИ треугольника. Если надо учитывать и границы, неравенства будут нестрогими.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты х и у точки:');
if (y>-3) and (y<5*x/3+2) and (y<-5*x/3+2) then Writeln('попали')
else Writeln('не попали')
end.