написать программу на C# Найти:
а) произведение всех целых чисел от 8 до 15;
б) произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры; 1 a 20);
в) произведение всех целых чисел от 1 до b (значение b вводится с клавиатуры; 1 b 20);
г) произведение всех целых чисел от a до b (значения a и b вводятся
с клавиатуры; b a).
program raf105;
var
b,c,let: integer;
a: real;
begin
write('Запас рыбы в пруду: ');
readln(a);
write('Ежегодный план отлова: ');
readln(b);
write('Наименьший запас: ');
readln(c);
while a >= c do
begin
let+= 1;
a:= a+a/100*15;
a-= b;
end;
writeln('Заданный план можно выдержать в течении ',let,' лет.');
end.
2.program raf105;
var a,sum,counter: integer;
begin
a:=1;
while sum<>324 do
begin
a+= 4;
sum+= a;
counter+= 1;
end;
writeln('Число слагаемых: ',counter);
end.
3.program raf105;
var a,counter: integer;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
counter+= 1;
a:= a div 10
end;
writeln('Количество цифр: ',counter);
end.
4.program raf105;
var
a: real;
let:integer;
begin
a:= 10000;
while a<20000 do
begin
let+=1;
a+= a/100*5;
end;
writeln('Сумма увеличится в 2 раза через ',let,' лет');
end.
Язык PascalABCНа доске 6*11 могут жить по две клетконенавистницы в ряд, всего 3 ряда, и останется еще 2*6 пустых клеток, которые могут занять две клетконенавистницы, взяв каждая себе по 6, стоя у стенки через 2 клетки друг от друга и имея у углов по пустой клетке под своим контролем.
Надеюсь, сумел объяснить диспозицию.
Итого 2*3+2=8.
8 клеток - и ни одна больше не сможет на этой доске появиться, не нарушая условие 2).
А теперь покажите самостоятельно, что никак не получится обойтись 7 клетками.