1:Это преследуется законом
2:Потому что не проверенные источники
3:Затем чтобы с тобой было приятно общатся
4:Чтобы заново не входить
Человек получает информацию с помощью органов чувств. Осязание и обоняние не обработает компьютер
Сделал в VS 2016
Вариант с использованием While
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
while (a <= b)
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
Console.ReadKey(); }
}
}
Вариант с использованием do while
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
do
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
while (a <= b); Console.ReadKey();
}
}
}
Вариант с использованием for
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
for (int i = a; i <= b; i++)
{
if (i % 3 == 0)
{
Console.WriteLine(i);
}
} Console.ReadKey();
}
}
}
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.