задача на циклы

@Ilya-Kotelnykov · Регистрация: 24.03.2022

Author24 — интернет-сервис помощи студентам

При вводе например числа 16 должно выводиться это:

1111
1222
1233
1234

А при вводе числа 36 это:

111111
122222
123333
123444
123455
123456

@bormant · 24.03.2022, 18:01

Что уже написали, что не получается, чем помочь-то?

@Ilya-Kotelnykov · 24.03.2022, 18:38 **[ТС]**

bormant, получилось сделать лишь эту программу с единицами, а с остальными числами не выходит

Pascal

var
  a,b,c:real;
begin
  write ('Введите число:');
  read (a);
  b:=sqrt(a);
  while b>0 do
    begin
      c:=sqrt(a);
      while c>0 do
        begin
          write ('1');
          c:=c-1;
        
        end;
      writeln(' ');
      b:=b-1;
    end;
end.

@bormant · 24.03.2022, 18:45

Pascal

var i, j, n: Integer;
begin
  Read(n); n:=Trunc(SqRt(n));
  for i:=1 to n do begin
    for j:=1 to i-1 do Write(j);
    for j:=i to n   do Write(i);
    WriteLn;
  end;
end.

@Ilya-Kotelnykov 0 / 0 / 0 Регистрация: 24.03.2022 Сообщений: 2
		1
	задача на циклы 24.03.2022, 16:38. Показов 735. Ответов 3 Метки задание, задача, код, олимпиада, паскаль, паскаль abc.net (Все метки) При вводе например числа 16 должно выводиться это: 1111 1222 1233 1234 А при вводе числа 36 это: 111111 122222 123333 123444 123455 123456 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	24.03.2022, 18:01	2
	Что уже написали, что не получается, чем помочь-то? 0

	24.03.2022, 18:45

задача на циклы

Решение