Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication8
{
class Program
{
static void Main(string[] args)
{
double a = double.Parse(Console.ReadLine());
double b = double.Parse(Console.ReadLine());
double c = double.Parse(Console.ReadLine());
if (a == b && b == c)
{
Console.WriteLine("Монотонная прогрессия");
goto a;
}
if (b - a == c - b)
{
Console.WriteLine("Арифметическая прогрессия");
goto a;
}
if (a != 0 && b != 0)
{
if (b / a == c / b)
{
Console.WriteLine("Геометрическая прогрессия");
goto a;
}
}
Console.WriteLine("Числа не составляют прогрессию");
a: Console.ReadKey();
}
}
}
Выделить первую ячейку и удерживая нажатой клавишу CTRL можно выделить и другие ячейки и удалить
На 1 символ надо log(2)128=7 бит;
<span>на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт</span>
var
s,s1:real;
k:integer;
begin
s:=10;
k:=1;
while s<20 do
begin
s:=s*1.1;
k:=k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s:=10;
s1:=10;
k:=1;
while s<200 do
begin
s:=s+s1*1.1;
s1:=s1*1.1;
k:=k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
Var x,y:real;
begin
writeln('Введите x, y: ');
readln(x, y);
writeln('Сумма = ', x+y);
writeln('Разность = ', x-y);
writeln('Произведение = ', x*y);
writeln('Частное = ', x/y);
end;
{
Операторы
write, writeln - вывод данных
read, readln - ввод данных
}