15 ♥♥♥ что такое интернет? что означает слово провайдер ? что такое электронная почта ? в чём заключается функция браузера? какие браузеры вы знаете? какие опасности могут возникнуть при использовании сети интернет? что такое плагиат?
Ответы
1) Что такое интернет? —Всемирная система объединённых компьютерных сетей для хранения, обработки и передачи информации.
2) Что означает слово провайдер?
Компания, поставщик каких-либо услуг.
3) Что такое электронная почта?
Технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета).
4) В чем заключается функция браузера?
Главная функция браузера – это открытие веб-страниц сайтов.
// Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
var f:=True; // флажок перестановки
var p:=1; // номер перестановки
var n:=a.Length;
while f do begin
f:=false;
for var i:=0 To n-p-1 Do
if a[i]>a[i+1] then begin
Swap(a[i],a[i+1]);
f:=true
end;
p+=1
end
end;
begin
var a:=ArrRandom(10,-10,10); a.Println;
BubbleSortFlag(a);
a.Println
end.
Пример
-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5
1)
var
A,s: integer;
begin
writeln ('Ведите А: ');
readln(A);
if A>30000 then
begin
writeln ('Ошибка. А больше 30000');
end
else
begin
s := 0;
while a > 0 do
begin
s := s + A mod 10;
A := A div 10;
end;
writeln(s);
end;
end.
2)
var
C,index,i: integer;
begin
writeln ('Ведите C: ');
readln(C);
if C>30000 then
begin
writeln ('Ошибка. C больше 30000');
end
else
begin
for i:=0 to C do begin
if(i mod 2) = 0 then
else begin
index:=index+1;
end
end
end;
writeln (index);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
А=5, b=6, c=a+b программа түрінде жазу
с заданием по информатике. Нужно написать программу на паскале
