Var a,b:integer; begin readln(a); readln(b); if (a<0) and (b>=0) then writeln('1'); if (b<0) and (a>=0) then writeln('1'); if (a<0) and (b<0) then writeln('2'); if (a>=0) and (b>=0) then writeln('0'); end.
1) Наблюдать это: смотреть и слушать. 2) Сбор информации - это наблюдение и записывание. Представить информацию на носителе - это зарисовать или записать. 3) * это цветок (листья, на которые падает дождь) * это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик) получения информации: - наблюдение - беседа - измерение - исследование - чтение 5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать. Действия с предметами: рубить дрова, резать картофель, готовить суп. 6) А) бинокль, микроскоп, лупа Б) линейка, транспортир, термометр
Uses crt; var i,j,k,n,max:integer; a:array[1..100] of integer; procedure rmassr; begin for i:=1 to n do a[i]:=random(10); end; procedure rmassy; begin for i:=1 to n do readln(a[i]); end; procedure maxe; begin max:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; end; writeln('max element = ', max); end; procedure wmass; begin for i:=1 to n do write(a[i],' '); writeln; end; begin clrscr; randomize; write('Длина массива'); readln(n); write('1-random; 2- в ручную '); readln(k); if k=1 then rmassr() else rmassy(); wmass(); maxe(); readln end.
begin
readln(a);
readln(b);
if (a<0) and (b>=0) then writeln('1');
if (b<0) and (a>=0) then writeln('1');
if (a<0) and (b<0) then writeln('2');
if (a>=0) and (b>=0) then writeln('0');
end.