N: = 1; while (n < size) and (a[n] mod 5 < > 2) and (a[n] > = 0) do inc(n); if (a[n] mod 5 = 2) and (a[n] < 0) then writeln(n) else ('! ');
Спасибо
Ответ дал: Гость
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.
Ответ дал: Гость
на выходе 109
program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Популярные вопросы