Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их разность.
Ответы
Ответ дал:
0
Pascal ABC.
var
i,a,raz:integer;
begin
for i:=1 to 10 do begin
a:=random(19)+1;
writeln(a);
raz:=raz-a;
end;
writeln('Разность: ',raz);
end.
var
i,a,raz:integer;
begin
for i:=1 to 10 do begin
a:=random(19)+1;
writeln(a);
raz:=raz-a;
end;
writeln('Разность: ',raz);
end.
Ответ дал:
0
Хм.... чем Ваша "разность" от суммы отличается, кроме обратного знака?
Ответ дал:
0
Резонно. Если можно было удалить ответ, удалил бы.
Ответ дал:
0
Ну зачем? Автор вопроса же не сказал, что он под разностью понимает.
Ответ дал:
0
PascalABC.NET
Версия 3.3, сборка 1633 (10.02.2018)
var
a,b,o: integer;
begin
for a:=1 to 10 do begin
b:=random(19)+1;
writeln(b);
otvet:=otvet-b;
end;
writeln(otvet);
end.
Версия 3.3, сборка 1633 (10.02.2018)
var
a,b,o: integer;
begin
for a:=1 to 10 do begin
b:=random(19)+1;
writeln(b);
otvet:=otvet-b;
end;
writeln(otvet);
end.
Ответ дал:
0
)))
Ответ дал:
0
А Вы запустите - работает...
Ответ дал:
0
И правда))
Ответ дал:
0
Ну вот теперь Вы знаете разницу между тем Паскалем, на котором пишете Вы, и на котором я. И все это в одной и той же среде программирования.
Ответ дал:
0
))
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад