Заданы числа a и b. определите,эти числа одного или разных знаков.

183

461

Посмотреть ответы 2

Ответы на вопрос:

tsattorzoda99

Информатика

4,6(38 оценок)

Var a,b : integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a> 0 do begin if b> 0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; while a< 0 do begin if b< 0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; end.

Urannnnnn

Информатика

4,4(28 оценок)

1) var a: array [1..10] of integer; i: integer; beginfor i: =1 to 10 doread(a[i]); for i: =1 to 10 dobeginif a[i] mod 2 = 0 thena[i]: =a[i]+1; writeln(a[i]); end; end.

var a: array [1..10] of integer; i: integer; beginfor i: =1 to 10 doread(a[i]); for i: =1 to 10 doif (a[i]+1) mod 2 = 0 thenbegina[i]: =a[i]*3; writeln(a[i]); endelsebeginif a[i] mod 2 = 0 thenwriteln (0); end; end.