1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>
1)
<span>a = int(input("Введіть 1 число: "))
b = int(input("Введіть 2 число: "))
c = int(input("Введіть 3 число: "))
d = int(input("Введіть 4 число: "))
e = int(input("Введіть 5 число: "))
f = int(input("Введіть 6 число: "))
d = int(input("Введіть 7 число: "))
q = int(input("Введіть 8 число: "))
w = int(input("Введіть 9 число: "))
z = int(input("Введіть 10 число: "))
suma = [a,b,c,d,e,f,d,q,w,z]
print('Сума введених чисел = ',sum(suma))
2)
</span><span>s = <span>0
</span>while True<span>:
</span> a = int(input("Введіть число: "))
s += a
print("Сума введених чисел: ",s)
if a == 0<span>:
</span><span>break</span></span>
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец
(a + b - 1.7) / (c + d / (e + f + 0.5))
VAR a:array[1..10000,1..10000]of integer;
m,n,k,i,j: integer;
begin
write('Введите 3 целых числа m, n, k = '); read(m,n,k);
writeln;for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=i+j+k; write(a[i,j]:6);
end;writeln;
end;
<span>end.
В верхней части картинки, занесена эта программа а в нижней части введены 3 числа (3 4 5 ) и показана созданная матрица</span>