Регистрация
polli11092002
13.07.2020 11:02
Информатика
Есть ответ 👍

Паскаль var x,y: integer; begin y: =0 for x: =1 to 9 do y: =y+1 wtiteln ('y=', y) end

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

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

freemvount
freemvount
4,8(92 оценок)
Var x,y: integer; begin y: =0; for x: =1 to 9 do y: =y+1; writeln ('y=', y); end. как говорят в языке, пунктуация хромает
darik2042005p07x0l
darik2042005p07x0l
4,5(30 оценок)
Var i, n, o, p, x: integer; begin write("n: "); readln(n); p: =0; o: =0; for i: =1 to n do   begin   read(x);   if x> 0     inc(p);   if x< 0     inc(o);   end; write("кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". разница: ", abs(p-o)); end.

Популярно: Информатика