Вопрос по информатике:
Срочно!!! делать в Паскале : запросить с клавиатуры четное 5-значное число , начинающееся тройкой и напечатать сумму его цифр. Если вводится не то число , то сообщить об этом и повторить ввод. Так же составить по этой задаче блок-схему и исп-таблицу - это не обязательно.
- 23.10.2017 07:07
- Информатика
- remove_red_eye 2525
- thumb_up 7
Ответы и объяснения 1
Var
a,i,n,s:integer;
function q (a:integer):integer;
var h,n:integer;
begin
n:=a;
h:=0;
q:=0;
while n>0 do
begin
n:=n div 10;
h:=h+1;
end;
if h = 5 then
begin
n:=a div 10000;
if n=3 then
if a mod 2 = 0 then
q:=1;
end ;
end;
begin
readln(a);
i:=a;
while q(i)1 do
begin
writeln('Error');
readln(a);
i:=a;
q(i);
end;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s); end.
- 24.10.2017 04:56
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.