Одномерный массив. Вывести на экран специальным образом.

@Knyaz21 · Регистрация: 20.10.2012

Массив 40 элементов , и напечатать эти элементы в таком ввиде
1
23
456
78910
...........
и так до 40 !! Буду весьма благодарен!

@Puporev · 24.11.2012, 18:56

Сообщение от Knyaz21

и так до 40

Ровно не будет, или 36 или 45.

@Ce7eH_111 · 24.11.2012, 19:01

Сообщение от Puporev

Ровно не будет, или 36 или 45.

Можно поставить условие типа if k=40 then exit;

@Puporev · 24.11.2012, 20:18

Все таки думаю что нужно до 45

Pascal

uses crt;
const n=45;
var a:array[1..n] of byte;
    i,j,k,m:byte;
begin
clrscr;
j:=1;
k:=1;
m:=2;
repeat
for i:=j to k do
 begin
  a[i]:=i;
  write(a[i]:4);
 end;
writeln;
j:=k+1;
k:=k+m;
m:=m+1;
until i=n;
readln
end.

Если до 40, то просто отрубить.

Pascal

uses crt;
const n=40;
var a:array[1..n] of byte;
    i,j,k,m:byte;
begin
clrscr;
j:=1;
k:=1;
m:=2;
repeat
for i:=j to k do
 begin
  a[i]:=i;
  write(a[i]:4);
  if i=n then break;
 end;
writeln;
j:=k+1;
k:=k+m;
m:=m+1;
until i=n;
readln
end.

@Knyaz21 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 13
		1
	Одномерный массив. Вывести на экран специальным образом. 24.11.2012, 17:28. Просмотров 664. Ответов 3 Метки нет (Все метки) Массив 40 элементов , и напечатать эти элементы в таком ввиде 1 23 456 78910 ........... и так до 40 !! Буду весьма благодарен! 0

@Puporev Модератор 63219 / 46976 / 32377 Регистрация: 18.05.2008 Сообщений: 113,854
	24.11.2012, 18:56	2
	Сообщение от Knyaz21 и так до 40 Ровно не будет, или 36 или 45. 0

@Ce7eH_111 34 / 34 / 19 Регистрация: 17.11.2012 Сообщений: 109 Записей в блоге: 2
	24.11.2012, 19:01	3
	Сообщение от Puporev Ровно не будет, или 36 или 45. Можно поставить условие типа if k=40 then exit; 0

Опции темы