Vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
<span> end.</span>
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>
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.
<span>Кодирование – это операция преобразования знаков или групп знаков одной знаковой системы в знаки или группы знаков другой знаковой системы. </span>
1
¬CvA
<span>Вывод в приложении.</span>