Занимавки с числа

Публикувано на 11 октомври, четвъртък от Данаил

Да се напише програма, която позволява да се въведат 5 числа и после отпечатва:

  • всички числа на един ред, разделени с запетая
  • числата в ред, обратен на въведения
  • първото и последното число
  • сумата на всяко число с въведеното преди него

Да се изпълни същата задача за N числа.

Публикувано в 10в, Паскал с етикети . Постоянна връзка.

4 Responses to Занимавки с числа

  1. kaloyan каза:
    11 октомври, четвъртък в 14:59 
    VAR
  a:array[1..5] of integer;
  i,n : integer;
BEGIN
  write('vavedete chislata: ');
    for i:=1 to 5 do
      readln(a[i]);
writeln;
writeln('na 1 red razdeleni sas zapetaq');
    for i:=1 to 5 do
      if i<5 then
        write(a[i],', ')
      else write(a[i]);
writeln;
writeln('v red obraten na vavedeniq');
    for i:=5 downto 1 do
      if i>1 then
        write(a[i],', ')
      else write(a[i]);
writeln;
writeln('parvoto i poslednoto chislo');
    writeln(a[1],', ',a[5]);
writeln('sumata na vsqko chislo s tova predi nego');
    write(a[1],', ');
    for i:=2 to 5 do
      if i<5 then
        write(a[i]+a[i-1],', ')
      else write(a[i]+a[i-1]);
Readln;
END.

Вашият коментар