Вводится последовательность ненулевых чисел, 0 — конец последовательности. определить, сколько раз последова- тельность поменяет знак.

131

300

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

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

ggimat203

Информатика

4,7(54 оценок)

Var a,b,k: integer; beginwrite('a='); readln(a); k: =0; while a< > 0 do begin b: =a; write('a='); readln(a); if a*b< 0 then k: =k+1; end; writeln('k=',k); end.

laskia

Информатика

4,8(93 оценок)

Var a,b,c,v,s: integer; begin writeln ('введите длины сторон'); readln(a); readln(b); readln(c); v: =a*b*s; s: =2*(a*b+a*c+b*c); writeln(' объем параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равен ' ,v); writeln('площадь поверхности параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равна ' ,s); end.