Var a,b,c: real;
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a:=ReadArrInteger('Вводите данные:',ReadInteger('n='));
a:=a.Select(x->Abs(x)).ToArray; a.Println
end.
Пример
n= 5
Вводите данные: 4 -2 0 4 -7
4 2 0 4 7
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication4
{
class Program
{
static void Main(string[] args)
{
bool result = false;
Console.WriteLine("Введи строку");
string str = Console.ReadLine();
for (int i = 0; i < str.Length - 1; i++)
{
if (str.Substring(i, 1) == str.Substring(i + 1, 1))
{
result = true;
break;
}
}
if (result == true)
Console.WriteLine("Да, встречаются");
else
Console.WriteLine("Нет, не встречаются");
Console.ReadKey();
}
}
}
Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду
1) 10*1024*8/1024=80секунд
2) Для начала найдем, сколько бит используется для кодирования одного пикселя:
256=2^x
x=8
Теперь находим объем видеопамяти:
1024*640*8/8/1024=640Кбайт
