Question

1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм)

2) Вывести все нечетные однозначные числа. (Цикл)

3) Найти сумму нечетных элементов одномерного массива. (Массив)

все в паскале

Answer 1

1)

program z1;

Var a:integer;

Begin read(a);

if (a>9) and (a<100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

Var i:integer;

Begin

for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.

3)

program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.