Регистрация
smaile2
21.02.2022 17:15
Информатика
Есть ответ 👍

Вкажіть правильно записані команди

1 x:=floattostr(edit1.text);
2 x:=strtoint(edit1.text);
3 x:=strtofloat(edit1.text)
4 x:=strfloat(edit1.text);
5 x:=strtofloat(edit1.text);

277
462
Посмотреть ответы 1

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

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.

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