var N,K:integer;
begin
N:=random(21)-5;
K:=random(21)-5;
write('N=',N,' ','K=',K,' ','Сумма=',N+K)
end.
Объяснение:
random(max-min+1)+min для любого диапозона
Поделитесь своими знаниями, ответьте на вопрос:
Получить два целых случайных числа Z и K в интервале (-5, 15 Распечатать на одной строке оба числа и их сумму. (ПАСКАЛЬ)
var N,K:integer;
begin
N:=random(21)-5;
K:=random(21)-5;
write('N=',N,' ','K=',K,' ','Сумма=',N+K)
end.
Объяснение:
random(max-min+1)+min для любого диапозона