1)15:3=5(ел)полученного!
Ответ:5
Файл - удалить, переместить, переименовать
Папка - удалить, переместить, переименовать
Не знаю, что тут еще можно добавить
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("n = ");
int n = int.Parse(Console.ReadLine());
if (n > 4 && n < 21) Console.WriteLine("Мне {0} лет", n);
else
{
int a = n % 10;
if (a == 1) Console.WriteLine("Мне {0} год", n);
else
if (1 < a && a < 5) Console.WriteLine("Мне {0} года", n);
else Console.WriteLine("Мне {0} лет", n);
}
Console.ReadKey();
}
}
}
Var
s:string;
max,min:char;
begin
write('Введите число: '); readln(s);
max:=s[1]; min:=s[1];
for var i:=2 to s.Length do begin
if min>s[i] then min:=s[i];
if max<s[i] then max:=s[i];
end;
writeln('max = ',max);
writeln('min = ',min);
end.