М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ivlevv671
ivlevv671
27.08.2021 02:55 •  Информатика

Написать программу, которая выводит на экран четверостишие: унылая пора! очей очарованье! приятна мне твоя прощальная краса – люблю я пышное природы увяданье, в багрец и золото одетые леса. а. с. пушкин

👇
Ответ:
comr4de
comr4de
27.08.2021
Program gt;
uses crt;
begin
writeln('Унылая пора! Очей очарованье!');
writeln('Приятна мне твоя прощальная краса –');
writeln('Люблю я пышное природы увяданье,');
writeln('В багрец и золото одетые леса.');
writeln('                              А. С. Пушкин');
end.
если не хочешь чтобы на окне crt появился убери uses crt;
4,6(3 оценок)
Открыть все ответы
Ответ:
Елена5763
Елена5763
27.08.2021

Январь - 2 кролика(+2) - 1 пара.

Февраль - 2 кролика (+0) - 1 пара.

Март - 4 кролика (+2 от первой пары) - 2 пары.

Апрель - 6 кроликов (+2 от первой пары) - 3 пары.

Май - 10 кроликов (+2 от первой и +2 от второй пары) - 5 пар.

Июнь - 16 кроликов (+2 от первой, +2 от второй, +2 от третьей пары) - 8 пар.

ответ: 8 пар.

По факту количество пар совпадает с числами Фибоначчи т.к. единая формула для решения данной задачи начиная с февраля первого года такова:

N(пар кроликов в этом месяце)=N(пар в предыдущем)+N(пар 2 месяца назад)

4,7(63 оценок)
Ответ:
hopoloi89
hopoloi89
27.08.2021
Var
A,B,C:integer;
Begin

WriteLn('Введите три числа');
ReadLn(A,B,C);
if (A<=B)and(B<=C) then Write(A,' ',B,' ',C)
else if (A<=C)and(C<=B) then Write(A,' ',C,' ',B)
else if (B<=A)and(A<=C) then Write(B,' ',A,' ',C)
else if (B<=C)and(C<=A) then Write(B,' ',C,' ',A)
else if (C<=A)and(A<=B) then Write(C,' ',A,' ',B)
else if (C<=B)and(B<=A) then Write(C,' ',B,' ',A)
End.

Var a,b,c,D:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D>=0 then
   Begin
   WriteLn('x = ',(-b-sqrt(D))/(2*a));
   WriteLn('x = ',(-b+sqrt(D))/(2*a));
   End
else WriteLn('Действительных корней нет')
End.
4,4(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ