По разделам



Задача For 8


Даны два целых числа A и B (A < B). Найти произведение всех целых
чисел от A до B включительно.

Код (C/C++)

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int A, B;
	A = rand() % 10;
	B = A + (rand() % 10 + 1);
	cout << "Number A: " << A << endl;
	cout << "Number B: " << B << endl;
	
	long product = 1;
	for(int i = A; i <= B; i++) {
		product *= i;
		cout << i <<" : " << product << endl;
	}
	cout << "Product = " << product << endl;
	return 0;
}

Код (Python)

import random

A = random.randrange(10)
n = random.randrange(10)+1
B = A + n
print('A = ', A)
print('B = ', B)

P = 1
for i in range(A,B+1,1):
    P *= i
    print(i," : ",P)
print("Product = ",P)
									

Код (Pascal)

program For8;
var
A,B,Rez,  i:Integer;
 
begin
 Write('Введите A: ');
 Readln(A);
 Write('Введите B: ');
 Readln(B);
 rez:=1;
 For i:=A  to B do Rez:=Rez*i;
 Writeln(Rez);
end.
									




For. Абрамян
For 1 Просмотров: 23
For 2 Просмотров: 21
For 3 Просмотров: 14
For 4 Просмотров: 21
For 5 Просмотров: 18
For 6 Просмотров: 15
For 7 Просмотров: 16
For 8 Просмотров: 15
For 9 Просмотров: 12
For 10 Просмотров: 16
For 11 Просмотров: 18
For 12 Просмотров: 24
For 13 Просмотров: 17
For 14 Просмотров: 18
For 15 Просмотров: 16
For 16 Просмотров: 14
For 17 Просмотров: 20
For 18 Просмотров: 16
For 19 Просмотров: 16
For 20 Просмотров: 11
For 21 Просмотров: 17
For 22 Просмотров: 14
For 23 Просмотров: 19
For 24 Просмотров: 15
For 25 Просмотров: 12
For 26 Просмотров: 14
For 27 Просмотров: 9
For 28 Просмотров: 24
For 29 Просмотров: 16
For 30 Просмотров: 10
For 31 Просмотров: 8
For 32 Просмотров: 12
For 33 Просмотров: 13
For 34 Просмотров: 9
For 35 Просмотров: 11
For 36 Просмотров: 13
For 37 Просмотров: 11
For 38 Просмотров: 18
For 39 Просмотров: 12
For 40 Просмотров: 12

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться