13:2=6остаток 1 6:2=3 остаток 0 3:2=1 остаток 1 ответ 13/2=11031
Маловато баллов за такую задачку.
Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
randomize;
for i:=1 to 16 do z[i]:=random(101);
write('Z=');
for i:=1 to 16 do write(z[i],' ');
writeln;
writeln;
p:=0;
s:=0;
for i:=1 to 16 do
if (i mod 2)<>0 then
begin
s:=s+z[i];
p:=p*z[i];
end;
writeln('P=',p);
writeln('S=',s);
writeln;
for i:=1 to 16 do k[i]:=z[i]*<span>exp(ln(i*z[i])/3);
</span>write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');<span>
max:=k[1];
for i:=1 to 16 do
if k[i]>max then max:=k[i];
writeln;
writeln('max=',max:0:0);
for i:=1 to 16 do
if k[i]=max then k[i]:=0;
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
End.</span>
Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
Стандартно в окне браузера используется панель для выполнения практически всех операций. Она располагается сверху. На ней есть:
1 Кнопки назад/вперёд для загрузки предыдущей/следующей страницы
2 Адресная строка, совмещенная с полем поиска
3 Кнопка Поиск - открывает окно поискового запроса
4 Кнопка Обновить - для обновления содержимого окна
5 Кнопка Остановить - останавливает загрузку веб - страницы
6 Панель для вкладок (просматриваемых веб - страниц)
7 Кнопка Домой - переход на стартовую страницу
8 Кнопка Настройки
Также есть само окно браузера, в котором работает пользователь, кнопки в верхнем правом углу Свернуть/Закрыть, вкладки веб-страниц (в шапке каждой - название и значок закрытия), значок для создания новых веб-страниц.
Create database book
Use book
Create table book
Id auto_increment
'жанр' varchar(60) not null,
'автор' varchar(60) not null,
'год' Int not null,
'коменти' varchar(60) ;
Insert (жанр, автор, год, коменти)
Into(бла, бла, 123, пмио);