Veelidla 2 ноября 2019 в 12:51
ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ
Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.
ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ
Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while alt;gt;0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write(s = ,s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while alt;gt;0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write(s = ,s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
Компьютеры и вычисления
67
24
Для комментирования необходимо зарегистрироваться на сайте