Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.
1 группа лишнее Home
2 группа лишнее F1
3 группа лишнее F12
4 группа лишнее *
Думаю так.
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
Вес одной точки на экране равен глубине цвета, т.е. сколько бит информации несет эта точка.
Найдем глубину цвета I по формуле:
2^I = K, где K = 256 цветов. Отсюда:
2^8 = 256 => глубина равна 8 => вес одной точки равен 8 бит
Определяет, является ли число n общим делителем всех меньших его чисел начиная с 2