Вопрос по информатике:
Правильно или нет, подскажите как
program ex;
var a,b,c:integer;
begin
readln (a);
b:=a mod 10;
c:=a div 100;
a:=b+c;
writeln (a);
end.
- 24.09.2017 17:39
- Информатика
- remove_red_eye 15355
- thumb_up 33
Ответы и объяснения 2
Program vav;
var a,b,c,x,s:integer;
begin
read(a);
x:=a;
s:=0;
while x0 do
begin
s:=s+(x mod 10);
x:=x mod 10
end;
write(s);end.
- 25.09.2017 09:13
- thumb_up 51
Var a, b: integer;
begin
readln (a);
b:=0;
while a>0 do begin
b:=b + a mod 10;
a:= a mod 10;
end;
writeln (b);
end.
- 26.09.2017 05:00
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.