Дано целое число а(а> 2определить является ли число чётным или нечётным (последовательно вычитаем из из числа а число 2 и определяем остаток)

При деление на два остаток только 1 или 0, выполняем вычитание пока а больше 1 var a: integer; begin writeln('введите число а'); readln(a); while a> 1 do a: =a-2; if a=0 then writeln('а - четное, остаток  ',a) else  writeln('а - нечетное, остаток  ',a) end.

1.     он американский ученый, основоположник кибернетики. а

также теории об искусственном интеллекте. славу ему принесли его работы в

и . его большая роль в том, что именно он впервые смог понять

огромное значение того, что информация будет использоваться в процессах

.

2.      

основатель теории информации, которая нашла свое место в современных

системах связи. в 40-х годах, прошлого века ввел понятие «бит».

3.      

термин, который означает «выполняющееся

действие по запросу», ввел тед нельсон в прошлом веке, в 1963 году.

4.      

в 1989 году. изобретателем считают

двух человек – тима бернерс-ли и роберт кайо.

5.      

эйлер, в честь которого назвали графическую

схему, был ученым. его сферой изучения была , , астрономия,

, ботаника, музыка, медицина и другие направления. он автор 600 трудов. 

не за что!       и на сердечко

Делал на 1с, но при желании можно свои поставить операторы (своего языка, главное процедура кнопкавыполнитьнажатие(кнопка)   нужносочинитьпесенок = 2019; песеноквдень = 5;   сочинилпесенок = 0; количестводней = 0;   пока сочинилпесенок < нужносочинитьпесенок цикл     если (сочинилпесенок + песеноквдень) > нужносочинитьпесенок тогда  песеноквдень = нужносочинитьпесенок - сочинилпесенок; конецесли;       сочинилпесенок = сочинилпесенок + песеноквдень;     количестводней = количестводней + 1;     сообщить(строка(количестводней)+" день(ей) сочинил "+строка(песеноквдень)+ " песенок. всего сочинил "+строка(сочинилпесенок));     песеноквдень = песеноквдень + 1; конеццикла;   сообщить("понадобилось "+строка(количестводней)+ " дней"); конецпроцедуры сообщения: 1 день(ей) сочинил 5 песенок. всего сочинил 5 2 день(ей) сочинил 6 песенок. всего сочинил 11 3 день(ей) сочинил 7 песенок. всего сочинил 18 57 день(ей) сочинил 61 песенок. всего сочинил 1 881 58 день(ей) сочинил 62 песенок. всего сочинил 1 943 59 день(ей) сочинил 63 песенок. всего сочинил 2 006 60 день(ей) сочинил 13 песенок. всего сочинил 2 019 понадобилось 60 дней