using System;
namespace ConsoleApp5
{
class Program
{
static void Main(string[] args)
{
Console.Write("Сумма кредита - ");
var c = Convert.ToDouble(Console.ReadLine());
Console.Write("Процент - ");
var p = Convert.ToDouble(Console.ReadLine())/100;
Console.Write("Годовой доход - ");
var r = Convert.ToDouble(Console.ReadLine());
if (r <= c * p) Console.WriteLine("Рассчитаться за кредит невозможно.");
else
Console.WriteLine($"Кол-во лет для погашения - {c / (r - c * p):0.##}");
Console.ReadKey();
}
}
}
1) свернуть все окна и нажать клавишу F1
2) в строке поиска ввести аппаратное<span> </span>сжатие
3)в "Рекомендуемых разделах" нажать на "термины" и там мы увидими искомое понятие
4) аналогично проделываем для поиска понятия атрибут
\
Var a,b,c:Integer;
Begin
Write('Введите длину 1 катета: '); Readln(a);
Write('Введите длину 2 катета: '); Readln(b);
Write('Введите длину гипотенузы: '); Readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if (sqr(c)=sqr(a)+sqr(b)) then
Writeln('Треугольник прямоугольный')
else
Writeln('Треугольник другого типа');
end
else
Writeln('Треугольник не существует');
END.
Uses crt;var c,i,j,n:integer;a:array [1..1000] of integer;begin clrscr;read(n);for i:=1 to n doread(a[i]);for i:=1 to n dofor j:=1 to n-1 doif (a[j] mod 10) > (a[j+1] mod 10) then beginc:=a[j];a[j]:=a[j+1];a[j+1]:=cend;for i:=1 to n dowrite(a[i],' ')<span>end.</span>