Помогите пожалуйста. Нужно написать программу для PascalABC.NET, которая сможет вычислить сумму огромного количества однозначных чисел. Количество чисел -
5-9 класс
|
5786.
const
n = 5786;
var
i, s: integer;
begin
Randomize;
s := 0;
for i := 1 to n do s := s + Random(10);
writeln('Сумма ', n, ' целых чисел [0..9] равна ', s)
end.
Тестовое решение:
Сумма 5786 целых чисел [0..9] равна 25695
Что значит "огромное количество"? нельзя написать программу на все случаи жизни, всё в реальности имеет ограничения.
Кроме самой реальности разумеется...
Объявите переменную типа int64 и получите возможность сложить 10^18 однозначных чисел. Если предположить, что за секунду компьютер делает 10 млн сложений, потребуется 78 лет его непрерывной работы, чтобы выполнить все эти сложения.
Другие вопросы из категории
числовой информации,а Петя должен отгадать это правило. 1 - 1;2 - 2;3 - 0;4 - 1; 20 - 2;21 - 0. 1 - 0;2 - 0;3 - 1;4 - 1;20 - 6;21 - 7.
Читайте также
Ребят, помогите пожалуйста.
Нужно написать программу (или программы) для вычисления суммы, произведения и среднего арифметического для трех чисел.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)