using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApp4
{
class Program
{
static void Main(string[] args)
{
int x, z;
x = Convert.ToInt32(Console.ReadLine());
z = Convert.ToInt32(Console.ReadLine());
Console.WriteLine((x * z + 1 / z*z) * (x * z + 1 / z*z) * (x * z + 1 / z*z));
Console.ReadKey();
}
}
}
вродь вот так
Второе задание:
var a,b,y: integer;
begin
read(a,b,y);
if ((y<a) and (y>b)) or ((y>a) and (y<b)) then writeln('принадлежит') else writeln('не принадлежит');
<span>end.</span>
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14
Program n1;
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=3