Question

Пожалуйста, помогите написать программу в Паскаль. 7 задача

Answer 1

var
 k:integer;
 t:boolean;
begin
 read(k);
 t := (k div 100 - k div 10 mod 10) = (k div 10 mod 10 - k mod 10);
 if t then
   writeln('Образуют')
 else
   writeln('Не образуют')
end.

Answer 2

Число - поставщик цифр, не более того.

Answer 3

У нас алфавит - поставщик букв. Но мы же не уверяем, что из первых десяти букв алфавита нельзя получить слова на том основании, что они следуют в определенном порядке!

Answer 4

Можно получить слова != образуют слова.

Answer 5

Это возражение ради процесса возражения? Как я понимаю, на деле-то крыть нечем.

Answer 6

Я просто поясняю, почему выбрал именно такой вариант. Не понимаю, что я должен /крыть/, если вы в самом начале согласились, что задача имеет более одной интерпретации, а я согласился с тем, что этот вариант действительно более простой.

Answer 7

var
  k,i,j,t:integer;
  a:array[1..3] of integer;
begin
  Write('k='); Read(k);
  a[1]:=k mod 10;
  t:=k div 10;
  a[2]:=t div 10;
  a[3]:=t mod 10;
  for i:=1 to 2 do
    for j:=i+1 to 3 do
      if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t end;
  Write('Цифры числа ',a[1],',',a[2],',',a[3],' ');
  if a[3]-a[2]=a[2]-a[1] then Writeln('образуют арифметическую прогрессию')
  else Writeln('не образуют арифметическую прогрессию')
end.
 
Пример работы программы
k=915
Цифры числа 1,5,9 образуют арифметическую прогрессию