<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
for var i:=1 to s.Length do s[:i+1].Println;
Writeln;
for var i:=s.Length downto 1 do s[:i+1].Println;
end.
<u>Пример</u>
Вводите: слово
с
сл
сло
слов
слово
слово
слов
сло
сл
с
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>
A = float(input())
print("a = ",a)
b = int(a*10)\%10
print("b = ",b)
Пример:
128.953
<span>a = 128.953
b = 9</span>
PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)