Разработать приложение, в котором запретить ввод с клавиатуры цифр и знаков препинания «.», «,», «:», «-» в поле Edit. При повторном вводе разрешенных символов выдавать сообщение «Символ уже введен!» На делфи.
236
438
Ответы на вопрос:
Var i,a1,a2: integer; sum: longint; begin a1: =1; a2: =2; sum: =0; while (a1< 102) or (a2< 102) do begin sum: =sum+(a1*a2); a1: =a2+1; a2: =a1+1; end; writeln(sum); end.
Популярно: Информатика
-
aninagalamova15.03.2020 07:09
-
1Яблочко102.10.2021 05:05
-
мугамбе27.08.2022 13:00
-
bellanik2p06zxf12.03.2020 15:08
-
gmejenny07.05.2020 21:41
-
kill202118.06.2020 18:02
-
яильяатыилья16.03.2021 10:44
-
az34358strelok839005.12.2021 01:44
-
ваня1000102.03.2023 02:22
-
frost09042004ozo97y15.02.2020 09:30