Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to (n-1) div 2 do
if a[2*i+1]>max then max:=a[2*i+1];
writeln('max = ',max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42
1703 г.
read(god);
while god <> 1703 do begin
write ('Неправильно!');
read(god);
end;
write('Правильно');
pascal
Program points;
uses crt;
var x, y:real;
begin
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x > 0) and (y > 0) then
writeln('<span>Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости</span>')
else
writeln('<span>Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости</span>');
readln
end.
1а) 148.8 = 148.8·10⁰ = 1.488·10² = 1488·10⁻¹
1б) 568.18 = 56818·10⁻² = 5.6818·10² = 0.56818·10³
2а) 128.3·10⁵ = 12830000; 1345·10⁰ = 1245; 0.789Е-4 = 0.00007890
2б) 0.001283·10⁵ = 128.3; 13.4501·10⁰ = 13.4501; 0.923Е-3 = 0.000923
3а) 33₄ = 3·4+3 = 15₁₀; 21₇ = 2·7+1 = 15₁₀ ⇒ 33₄ = 21₇ ⇒ да
3б) 33₈ = 3·8+3 = 27₁₀; 21₄ = 2·4+1 = 9₁₀ ⇒ 33₈ ≠ 21₄ ⇒ нет
183 делим на 2 = 91 остаток 1 записываем
91делим на 2 = 45 остаток 1 записываем
45/2=22 ост 1
22/2 = 11 ост 0
11/2 = 5 ост 1
5/2 = 2 ост 1
2/2 = 1 ост 0
1/2 = 0 ост 1
остаток от деления записывает в обратную сторону
10110111
Это и есть число 183 в двоичной системе
