ГОТОВ! ГОТОВ БРОСИТЬ КОПЕЙКУ!
1. Какой вид цикла (с параметром или с условием) следует использовать для решения этих задач
А. Чему равно произведение натуральных чисел от 1 до 15
Б. Какому числу стремится значение функции y=(1+1/х)^х
В. Нарисовать на экране компьютера линии всех возможных цветов
Г. На какой дроби результат выражения 1/10+1/11+1/12 станет больше 1:
Д. Сколько гласных букв в предложении
2. Какие из циклов бессмысленнопомещать в программу:
А. While x<0 Do х:=х+5
Б. While х<0 Do х:=х-100
В. While 0
Г. While a>0 do y:=2*y
Д. While a>b do a:=a-1; b:=b+1
E. While abs(x)+1>0.75 do x:=x+1
3. Что будет напечатано на экране В результате выполнения программы, я если известна начальное значение переменной А:
Program Z1; ' тут стартовая а=20
Var a:real;
Begin
Readln(a)
While a>8 do a:=a/2;
Writeln (a)
End.
Program Z2; ' тут стартовая а=10
Var a, b:real;
Begin
Readln(a); b:=-a
Repeat a:=a*2; b:=a+b until a
Writeln (a)
End.
ПРАВДА ГОТОВ ОТПРАВИТЬ ДЕНЬГУ ЗА ОТВЕТ(( МОЖЕТЕ С ОТВЕТОМ ОТПРАВИТЬ ЧТО-НИБУДЬ ДЛЯ СВЯЗИ!
Язык не указан, предположим что нужен кто то из популярных: Паскаль или Питон.
PascalABC.NET:
#1 (По умному)
begin
var a := Range(1, ReadInteger('N = '));
a.Sum.Println;
a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;
end.
#2 "А нас учили по другому"
begin
var N := ReadInteger();
var sum:int64 := 0;
var prod:BigInteger := 1; //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger
for var i := 1 to N do begin
sum += i;
prod *= i;
end;
Println(sum, prod);
end.
#3 Вариант на Питоне
summ, prod = 0, 1
for i in range(1, int(input())+1):
summ += i; prod *= i
print(summ, prod)
Объяснение:
program cikli;
unit math;
var
i,n,s,p:integer;
a:array[1..20]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 20 do begin
a[i]:=RandomRange(1,20);
writeln(' Элемент ',i,' = ',a[i]);
end;
writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? ');
readln(n);
s:=0;p:=1;
//цикл с параметром
For i:=1 to n do begin
s:=s+a[i];
p:=p*a[i];
end;
writeln('Цикл с параметром');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
//цикл с предусловием
i:=1;p:=1;s:=0;
while i<>n do begin
s:=s+a[i];
p:=p*a[i];
i:=i+1;
end;
writeln('Цикл с предусловием');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
//цикл с постусловием
i:=0;s:=0;p:=1;
repeat
i:=i+1;
s:=s+a[i];
p:=p*a[i];
until i=n;
writeln('Цикл с постусловием');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
End.