определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа

@Gol · Регистрация: 17.10.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуста!) определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа

@~~pavelr~~ · 17.10.2010, 18:42

Pascal

S:=0;
WHILE n>0 do
begin
l:=n mod 10;
if odd(l) then s:=s+l;
n:=n div 10;
end;
kod:=4*s;
simv:=chr(kod);

Комментарий модератора

pavelr, Может начнем обрамлять код тегами????

@Puporev · 17.10.2010, 18:43

Pascal

uses crt;
var a:word;
    s:byte;
    c:char;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until (a>999)and(a<10000);
s:=0;
while a>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;
writeln('Сумма цифр=',s);
write('Символ с кодом 4*',s,'=',chr(4*s));
readln
end.

@Gol · 17.10.2010, 18:44 **[ТС]**

Спасибо!)

@~~pavelr~~ · 17.10.2010, 19:01

Ему надо сумму ЧЕТНЫХ цифр числа и зачем описывать переменную с типа char,если ее не используем?

@Puporev · 17.10.2010, 20:27

Pascal

uses crt;
var a:word;
    s:byte;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until (a>999)and(a<10000);
s:=0;
while a>0 do
 begin
  if (a mod 10) mod 2=0 then s:=s+a mod 10;
  a:=a div 10;
 end;
writeln('Сумма цифр=',s);
write('Символ с кодом 4*',s,'=',chr(4*s));
readln
end.

@Gol 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 6
		1
	определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа 17.10.2010, 18:31. Показов 2554. Ответов 5 Метки нет (Все метки) Помогите пожалуста!) определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа 0

@Gol 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 6
	17.10.2010, 18:44 [ТС]	4
	Спасибо!) 0

@~~pavelr~~ Заблокирован
	17.10.2010, 19:01	5
	Ему надо сумму ЧЕТНЫХ цифр числа и зачем описывать переменную с типа char,если ее не используем? 0

	17.10.2010, 20:27

Опции темы