Задача на char. Вывести на экран сумму кодов слов age AGE

@Frost007 · Регистрация: 05.03.2012

вывести на экран сумму кодов слов age AGE

@КонецСвета · 23.03.2012, 16:43

Pascal

uses crt;
var s: string;
    i,sum: integer;
begin
s:='ageAGE';
for i:=1 to length(s) do
    inc(sum,ord(s[i]));
writeln(sum);
resdln;
end.

@Frost007 · 23.03.2012, 16:52 **[ТС]**

КонецСвета, опиши подробно что выполняет каждая строчка

@TheSN · 23.03.2012, 17:43

Немного отредактировал программу и прокомментировал.

Pascal

var s: string; // описываем  переменные
    i,sum: integer;
begin
s:='ageAGE';  // присваиваем значение переменной
for i:=1 to length(s) do sum:=sum + ord(s[i]);  // От 1-ого символа до последнего суммируем номера
writeln(sum); // выводим результат
readln; // задержка перед закрытием программы
end.

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
		1
	Задача на char. Вывести на экран сумму кодов слов age AGE 23.03.2012, 16:20. Просмотров 799. Ответов 3 Метки нет (Все метки) вывести на экран сумму кодов слов age AGE 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	23.03.2012, 16:52 [ТС]	3
	КонецСвета, опиши подробно что выполняет каждая строчка 0

	23.03.2012, 17:43

Опции темы