paskal ascii - Помощь студентам

netcher · 03.03.2009, 10:56

Помогите написать программы
1. Посчитать сумму кодов гласных букв английского алфавита.
2. Вывести числа, коды которых есть числа кратные 10

Stilet · 03.03.2009, 12:45

1.

Код:

for i:=ord('a') to ord('z') do sum:=sum+i;

2.

Код:

for i:=ord('a') to ord('z') do if i mod 10=0 then выводим

03.03.2009, 10:56	#1
netcher Пользователь Регистрация: 04.02.2009 Сообщений: 21	paskal ascii Помогите написать программы 1. Посчитать сумму кодов гласных букв английского алфавита. 2. Вывести числа, коды которых есть числа кратные 10

03.03.2009, 12:45	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	1. Код: `for i:=ord('a') to ord('z') do sum:=sum+i;` 2. Код: `for i:=ord('a') to ord('z') do if i mod 10=0 then выводим` I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Paskal	netcher	Помощь студентам	3	05.02.2009 02:04
ASCII в ANSI	JRcoker	Общие вопросы Delphi	5	03.08.2008 15:49
Перекодировка из ASCII	Dimo444ka	Помощь студентам	2	25.05.2008 13:22
ASCII строки	Mitron	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	10.02.2008 19:42