Задание:
1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм) 2) Вывести все нечетные однозначные числа. (Цикл)
Решение:
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; Beginfor 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.
Знаете другой ответ?