Var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do s:=s+i/10;
Writeln(s)
end.
<u>Результат</u>
5.5
program test;
var sum, x: integer;
begin
sum:=0;
Вор варует - хакер взламывает
Вирусболезнь это живое - вирус компьютерный не живое
Vitaly19991 пожалуйста выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет:
ШАГ -перемещение на одно деление с рисованием линии;
ПРЫЖОК -перемещение на одно деление без рисования линии;
ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки.
А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:
Буква Ш:
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГКОН
Буква Ц
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПРЫЖОК ПРЫЖОК ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГКОН
Буква Ч
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ШАГКОН
Буква Б
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПРЫЖОК ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГКОН
Буква П
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГКОН
Буква Е
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГКОН
Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>
