Вопрос по информатике:
Дано семизначное число. Определить, является ли оно симметричным.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.08.2015 23:15
- Информатика
- remove_red_eye 19299
- thumb_up 21
Ответы и объяснения 1
Program n1;
Var c,i: integer;
a: array[0..6] of integer;
begin
Writeln('Vvedite chislo');
Readln(c);
For i:=6 downto 0 do
begin
a[i]:=c mod 10;
c:=c div 10;
write(a[i]:3);
end;
If(a[0]=a[6])and(a[1]=a[5])and(a[2]=a[4]) then writeln('Simmetrichnoe')
else writeln('Nesimmetrichnoe');
readln
end.
- 22.08.2015 06:01
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.