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.
Ответ дал: Гость
Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов
Популярные вопросы