1:=760
2:=7B,1C6,11D0,
3:=Не смог
4:=1101111000010110,1110000010100011,10010001110111100
5:=5D,6679
1) x mod 2 = 1
2) if x < 0 then x := -x
3) в
4) б
5) в
6) в
7) б и в
8) \овал: Начало\
\стрелка вниз\
\параллелограмм: N := 2\
\стрелка вниз\
\ромб: N > 200?\
\стрелка да\
\овал: Конец\
\стрелка нет\
\параллелограмм: Вывести число N\
\стрелка вниз\
\параллелограмм: N := N + 2\
\стрелка к ромбу\
Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>