Программа для создания презентаций (в основном)
using System;
using System.Collections.Generic;
public class Task
{
public static void Main()
{
//Два вещественных числа на одной строке с любым числом пробелов
Console.WriteLine("Введите коэффициенты a, b:");
var s = Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries);
double a = Convert.ToDouble(s[0]);
double b = Convert.ToDouble(s[1]);
Console.WriteLine("Решения уравнения ({0})*x^3+({1})*x=0:", a, b);
//a*x^3+bx=0
//x(a*x^2+b)=0
//x = 0 или x = +-sqrt(-b/a)
List<double> roots = new List<double>();
roots.Add(0);
const double eps = 1e-7; //точность для сравнения с нулем вещественных чисел
if (Math.Abs(a) < eps)
{
if (Math.Abs(b) < eps)
{
Console.WriteLine("Бесконечное количество решений");
return;
}
}
else
{
double c = -b/a;
if (c > eps)
{
c = Math.Sqrt(c);
roots.Add(-c);
roots.Add(c);
}
}
foreach(var x in roots)
{
Console.Write("{0} ", x);
}
Console.WriteLine();
}
}
Мы должны умножить сторону равную 15 см на сторону 20 см,получим площадь.
После чего мы находим периметр:
Так как это четырёхугольник,то противоположные стороны равны,следовательно 20 +20+15+15 =70 см
В итоге P = 70см
S = 300 см 2
program 1qq;
var c,b,n,a:integer;
begin
readln(n);
readn(a);
b:=0;
c:=a;
while b<n do begin
b:=b+1;
if a mod 19 = 0 and a mod 23 = 0 then writeln(a);
a:=a+1;
end;
writeln('KONEC');
end.
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
