Вопрос по информатике:
Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.07.2017 21:12
- Информатика
- remove_red_eye 18451
- thumb_up 32
Ответы и объяснения 1
var
a: array [0..3] of integer;
c: integer;
begin
for c := 0 to 3 do
begin
read(a[c]);
end;
if a[0] = a[3] then
begin
if a[1] = a[2] then write('1') else write(random(100))
end;
end.
- 15.07.2017 19:52
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.