Из 5 заданных чисел отрицательные числа сделать положительными, а все нули заменить на один

@yura1 · Регистрация: 04.06.2015

Author24 — интернет-сервис помощи студентам

из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один (через while)

@JuriiMW · 15.06.2015, 15:11

В данной программе цикл вообще не нужен:

Pascal

procedure convert(var n:real);
begin
  if n=0 then n:=1 else n:=abs(n);
end;
 
var a,b,c,d,e : real;
begin
  Write('enter 5 numbers:'); ReadLn(a,b,c,d,e);
  convert(a);convert(b);convert(c);convert(d);convert(e);
  WriteLn('the new 5 numbers:',a,b,c,d,e);
end.

@yura1 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 14
		1
	Из 5 заданных чисел отрицательные числа сделать положительными, а все нули заменить на один 15.06.2015, 14:59. Показов 1218. Ответов 1 Метки нет (Все метки) из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один (через while) 0

	15.06.2015, 15:11

Опции темы

Из 5 заданных чисел отрицательные числа сделать положительными, а все нули заменить на один

Решение