1)составить программку, которая, если введенное число отрицательное меняет его на

Question

1)составить программку, которая, если введенное число отрицательное меняет его на

1)составить программку, которая, если введенное число отрицательное меняет его на обратное

2)Даны три целых числа. Найти количество положительных чисел в начальном наборе.
СРОЧНОООО РЕШИТЕ!!!

Задать свой вопрос

Нина Акиняна 2019-09-09 10:01:35

паскаль?)

Сема Мосензов 2019-09-09 10:06:48

QB

Лилия Галеутдинова 2019-09-09 10:08:53

блин

Макс Момджян 2019-09-09 10:12:39

сможешь решить?

Амина 2019-09-09 10:17:31

ток паскаль^^

Елизавета Саратовских 2019-09-09 10:21:53

ну хорошо, спасибо тебе все одинаково :3

Нелли Неревяткина
Информатика
2019-09-09 09:56:23
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

укажите элемент электрическая схема атома которого 2е 8е 5е

решить через систему. срочноданы два прямоугольника. ширина первого прямоугольника 7 см,

В каком из предложений пропущена одна (только одна!) запятая?Великая компания наполнила

Какие страны Манголы захватили до прихода на Русь?

назовите не менее трёх обстоятельств,почему Елизавета петровне удалось просто захватить власть

обитатели городов росия занемают 73 працента всего народонаселенья росии.сколько працентов населения

какое соединение не относится к высокомолекулярным:а. крахмалб. целлюлозав. белокг.

1. Два лыжника вышли сразу навстречу друг другу из двух поселкав.

Выразите время в минутках:28800с.40ч,6ч 12 мин. в сутках 96ч ,168ч.192ч в часах:420мин

ЭССЕ НА ТЕМУ ТРАНСПОРТ В ЖИЗНИ ЛЮДЕЙ 3 КЛАСС И ЧТО

Елизавета · Answer 1 · 2019-09-09 09:59:16+3:00

Var
a:integer;
begin
readln(a);
if alt;0 then a:=абс(a);
writeln(a);
readln;
end.

var
a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if agt;0 then c:=c+1;
if cgt;0 then c:=c+1;
if bgt;0 then c:=c+1;
writeln(c);
readln;
end.

О проекте

1)составить программку, которая, если введенное число отрицательное меняет его на

Добро пожаловать!