Еда напитки всего
бутер
кофе 2
пряник
плюшка 4
сок 2
кекс
Файловий провідник, живлення, усі програми...
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
uses Arrays;
begin
var S := CreateRandomIntegerArray(10,4,33);
writeln('Массив: ', S);
writeln('Индексы массива начинаются с 0!');
writeln('Минимальный элемент: ', S.Min, '. Индекс: ', S.IndexOf(S.Min));
writeln('Максимальный элемент: ', S.Max, '. Индекс: ', S.IndexOf(S.Max));
end.
Using System;
public class Test
{
public static void Main()
{
double r, x, y;
Console.Write("r = ");
r = double.Parse(Console.ReadLine());
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
Console.Write("y = ");
y = double.Parse(Console.ReadLine());
if ((y>=0)&&(x*x+y*y<=r*r)||(x<=0)&&(y>=-r)&&(y<=x))
Console.WriteLine("Точка попадает в область");
else Console.WriteLine("Точка не попадает в область");
Console.ReadLine();
}
}
Пример:
<span>r = 3
x = -1
y = -2
Точка попадает в область</span>