Using System;
namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
Console.Write("введите число: ");
int value = int.Parse(Console.ReadLine());
int sum = 0;
for(int i = 1; i < value; i++)
if (value % i == 0) sum += i;
if (value == sum) Console.WriteLine("Число совершенное");
else Console.WriteLine("Число не совершенное");
Console.ReadLine();
}
}
}
И(A1>-10) ⇒ Истина
<span>ИЛИ(A1<-15;И(A1>-10)) </span>⇒ Истина
Следовательно, в ячейке В1 будет А1
<em>// PascalABC.NET 3.2, сборка 1336 от 14.11.2016</em>
begin
Writeln(Range(5,109,4).Sum)
end.
Результат
1539
<span>Строка состояния представляет собой горизонтальную полосу в нижней части окна документа Microsoft Word. В строке состояния отображаются данные о текущем состоянии содержимого окна и другие сведения, зависящие от контекста.
отображает
</span><span>Показывает номер страницы.
</span>число слов
язык
состояние проверки правописания. Во время поиска ошибок данный значок принимает вид книги, над которой движется карандаш. Изображение галочки свидетельствует об отсутствии ошибок. При обнаружении ошибки появляется пометка в виде буквы «Х». Для устранения ошибки дважды щелкните этот значок.
var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
end.