A. сложная игра имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт айбар и абылай играют в игру. абылай записывает на бумажку какое-то слово и передает айбару. цель айбара: сказать сколько букв в
слове записанном на бумажке. но, к сожалению, айбар не умеет читать. айбару. формат входных данных в единственной строке задается строка s(1 ⩽ jsj ⩽ 1000) состоящая из строчных букв. формат выходных данных вывести длину строки s. примеры стандартный ввод стандартный вывод string 6 aibar 5 страница
1

Показать ответ

Ответ:

LIZETTA111

23.12.2020 16:02

Const
percent = 13.0;
limit = 250.0;
plan = 180.0;
perv_zapas = 1000.0;

var
year: integer;
zapas, ulov: real;

begin
Writeln('Год Запас рыбы,т. Улов,т');
zapas := perv_zapas;
for year := 1 to 20 do
begin
    zapas := zapas * (1 + percent / 100);
    if zapas - plan < 250 then ulov := zapas - 250
    else ulov := plan;
    zapas := zapas - ulov;
    if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
    else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
end
end.

Результат выполнения программы:
Год Запас рыбы,т. Улов,т
1     950.0       180.0
2     893.5       180.0
3     829.7       180.0
4     757.5       180.0
5     676.0       180.0
6     583.9       180.0
7     479.8       180.0
8     362.1       180.0
9     250.0       159.2 - меньше плана
10     250.0        32.5 - меньше плана
11     250.0        32.5 - меньше плана
12     250.0        32.5 - меньше плана
13     250.0        32.5 - меньше плана
14     250.0        32.5 - меньше плана
15     250.0        32.5 - меньше плана
16     250.0        32.5 - меньше плана
17     250.0        32.5 - меньше плана
18     250.0        32.5 - меньше плана
19     250.0        32.5 - меньше плана
20     250.0        32.5 - меньше плана

0,0(0 оценок)

Ответ:

BlackJuice

28.01.2023 05:24

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:
$\left\{\begin{matrix}a$
Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:
$a^2=b^2+c^2-2bc\cdot cos(A) \to \displaystyle cos(A)= \frac{c^2+b^2-a^2}{2bc}$

Текст программы приводится ниже.
var
a,b,c,t,cosA:real;
begin
Write('Введите длины сторон треугольника: '); Readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
end
else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный

0,0(0 оценок)

Популярные вопросы: Информатика