Требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) входные данные вводится единственное число - номер года (целое, положительное, не превышает 30000 выходные данные требуется вывести слово yes, если год является високосным и no - в противном случае. pascal

program godVisоkos;

var

 god: integer;

begin

writeln ('Введите год');

 readln(god);

 if (god mod 4 = 0) and (god mod 100 <> 0) or (god mod 400 = 0) then  

   writeln('ВИСОКОСНЫЙ') else

   writeln('НЕ ВИСОКОСНЫЙ');

end.

Через поле и лесок подаётся голосок. 
Он бежит по проводам - 
Скажешь здесь, а слышно там. (телефон)

Под крышей - четыре ножки, 
На крыше - суп да ложки. (Стол)

Хоть по объёму и мала, 
Информацию хранит она. 
Знаем все устройство это 
Называется……

Адрес, имя, телефоны, все запишет, все запомнит! 
И девчонке и мальчишке, всем эта книжка!

Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, У компьютера есть ...

Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
Рисуют и читают.

Таблица умножения. Со сложением, надеюсь, сама справишься, там легко
_ | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | A | B
1 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | A | B
2 | 2 | 4 | 6 | 8 | A |10|12|14|16| 18|1A
3 | 3 | 6 | 9 |10| 13|16|19|20|23| 26|29
4 | 4 | 8 |10|14| 18|20|24|28|30| 34|38
5 | 5 | A| 13|18|21 |26|2B|34|39|42|47
6 | 6 |10|16| 20|26|30| 36|40|46|50|56
7 | 7 |12|19| 24|2B|36| 41|48|53|5A|65
8 | 8 |14|20| 28|34| 40|48| 54|60|68|74
9 | 9 |16|23|30 |39| 46|53| 60|69|76|83
A | A|18|26| 34|42| 50|5A|68|76|84|92
B | B|1A|29|38|47| 56| 65|74|83|92|A1