В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Ram543
Ram543
13.10.2020 22:04 •  Информатика

написать программу на C# Найти:
а) произведение всех целых чисел от 8 до 15;
б) произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры; 1 a 20);
в) произведение всех целых чисел от 1 до b (значение b вводится с клавиатуры; 1 b 20);
г) произведение всех целых чисел от a до b (значения a и b вводятся
с клавиатуры; b a).

Показать ответ
Ответ:
GLEBfy
GLEBfy
26.01.2020 03:30
1.                                                                          

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
0,0(0 оценок)
Ответ:
zaikayes
zaikayes
01.11.2020 14:33
Клетка - "мизклетка", клетконенавистница по-научному, требует для себя 9 клеток пространства. В центре сидит она сама, а 8 окружающих ее запрещает для подселения другой клетки.
На доске 6*11 могут жить по две клетконенавистницы в ряд, всего 3 ряда, и останется еще 2*6 пустых клеток,  которые могут занять две клетконенавистницы, взяв каждая себе по 6, стоя у стенки через 2 клетки друг от друга и имея у углов по пустой клетке под своим контролем.
Надеюсь, сумел объяснить диспозицию.
Итого 2*3+2=8.
8 клеток - и ни одна больше не сможет на этой доске появиться, не нарушая условие 2).
А теперь покажите самостоятельно, что никак не получится обойтись 7 клетками.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота