например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
1. Он американский ученый, основоположник кибернетики. А
также теории об искусственном интеллекте. Славу ему принесли его работы в
математике и физике. Его большая роль в том, что именно он впервые смог понять
огромное значение того, что информация будет использоваться в процессах
управления.
2.
Основатель теории информации, которая нашла свое место в современных
системах связи. В 40-х годах века ввел понятие «бит».
3.
Термин, который означает «выполняющееся
действие по запросу», ввел Тед Нельсон в веке, в 1963 году.
4.
В 1989 году. Изобретателем считают
двух человек – Тима Бернерс-Ли и Роберт Кайо.
5.
Эйлер, в честь которого назвали графическую
схему, был ученым. Его сферой изучения была математика, физика, астрономия,
химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов.
не за что! и на сердечко
Відповідь:
Пояснення:
1/
program g;
var a: array [1..5] of integer;
i,imax,imin, n: byte;
begin
imax:=1; imin:=1; n:=0;
writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');
for i:=1 to 5 do
begin
read(a[i]);
if a[i]>a[imax] then imax:=i;
if a[i]<a[imin] then imin:=i;
end;
if imax < imin then
for i:=imax+1 to imin do
if a[i] < 0 then n:= n+1;
if imin < imax then
for i:=imin+1 to imax do
if a[i] < 0 then n:= n+1;
if n>=1 then writeln('Äà')
else writeln('Íåò');
readln;
end.
2.
program kol;
var a: array [1..5] of integer;
i,max,min, n ,m: byte;
begin
max:=1; min:=1;
n := 0; m := 0;
writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');
for i:=1 to 5 do
begin
read(a[i]);
if a[i]>a[max] then a[i]:= a[max];
if a[i]<a[min] then a[i]:= a[min];
end;
for i:=1 to 5 do
begin
if a[i] = a[max] then n:= n+1;
if a[i] = a[min] then m:=m+1;
end;
writeln('Êîëè÷åñòâî ìàêñèìàëüíûõ ýëåìåíòîâ ', n);
writeln('Êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ ', m);
readln;
end.