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

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; begini: =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; beginwrite('введите количество элементов массива: '); 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.

|з       з|

|         з|

|з   з     |

только вчера это

если п и ж аборигены, то она должны всегда говорить правду.значит ж(абориген)говорит правду, что он абориген и п передаёт правду. он абориген.

если п иж пришельцы, то они должны врать.значит ж говорит (неправду) я абориген, и п передаёт он пришелец. контексту.

если п-пришелец,а ж-абориген, то п должен врать, а ж говорить правду. значит жсказал правду " я абориген", а проводник передал он пришелец. несоответсвует контексту.

если п- абориген, а ж пришелец, то п всегда говорит правду, а ж неправду. значит  сказал" неправду "я абориген" а п передал он абориген.

в обоих случаях проводник абориген.

п- проводник

ж - житель