Найти разность двух чисел

@AlanVC · Регистрация: 24.10.2016

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

Через процедуру найти разность двух чисел (30-20)
Только начинаю, объясните пожалуйста.

@Puporev · 24.10.2016, 08:29

Pascal

procedure razn(a,b:integer;var c:integer);
begin
c:=a-b;
end;
var a,b,c:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
razn(a,b,c);
write('Разность=',c)
end.

@AlanVC 0 / 0 / 0 Регистрация: 24.10.2016 Сообщений: 3
		1
	Найти разность двух чисел 24.10.2016, 07:47. Показов 26187. Ответов 1 Метки процедура, разность (Все метки) Через процедуру найти разность двух чисел (30-20) Только начинаю, объясните пожалуйста. 0

	24.10.2016, 08:29

Найти разность двух чисел

Решение