Другие языки программирования и технологии

как будет выглядеть программка в macrosoft visual studio 2010 "Год называется високосным, если он делится на 4, не дели

делится на 100, исключая те, которые делятся на 400 . Ввести год с клавиатуры и проверить, является ли он високосным.
"
В зависимости от используемого в студии языка программирования, она может выглядеть:

так:
Module N72446967
Sub Main()
Dim y As UInt32
Console.Write("Введите год: ")
y = UInt32.Parse(Console.ReadLine())
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
Console.WriteLine("Високосный")
Else
Console.WriteLine("Невисокосный")
End If
Console.ReadKey()
End Sub
End Module

так:
using System;
namespace N72446967
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите год: ");
UInt32 y = UInt32.Parse(Console.ReadLine());
if (y % 4 == 0 && y % 100 != 0 || y % 400 == 0)
Console.WriteLine("Високосный");
else
Console.WriteLine("Невисокосный");
Console.ReadKey();
} } }

так:
#include <iostream>
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
setlocale(LC_ALL, "Russian");
unsigned y;
cout << "Введите год: ";
cin >> y;
if (!(y % 4) && y % 100 || !(y % 400))
cout << "Високосный";
else
cout << "Невисокосный";
cin.get();
cin.get();
return 0;
}

или так:
#include <stdio.h>
#include <locale.h>
int main()
{
unsigned y;
setlocale(LC_CTYPE, "Russian");
printf("Введите год: ");
scanf("%d", &y);
if (!(y % 4) && y % 100 || !(y % 400))
puts("Високосный");
else
puts("Невисокосный");
getchar();
getchar();
return 0;
}

С функциональными языками познакомиться мне пока не получилось, поэтому не могу показать, как она может выглядеть на F#.
А если принять во внимание сторонние компиляторы дополнительных языков, которые интегрируются в Visual Studio 2010 (точно знаю, что интегрируются Fortran, D, Nemerle, Oxygene; вроде бы Ruby, Python и много других неизвестных мне языков) , то на примеры не хватит лимита в 4000 символов.

P.S. Голова садовая! Я же про ассемблер забыла! :D)))
P.P.S. Примеры программы сверху вниз на языках: Visual Basic.NET, C#, C++, C.
Ильдар Гильманов
Ильдар Гильманов
51 590
Лучший ответ