Опубликовано 5 лет назад по предмету Информатика от MisterLeo7

Вывести на экран следующую таблицу (Pascal):
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2

Ответ

Ответ дан MrMiner1

Program n_1;
var a, i:integer;
begin
for i:=1 to 5 do write(i, ' ');
writeln;
for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');
writeln;
for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');
end.
Ответ

Ответ дан ingr

сделал программку немножко посложнее :))
меняя стартовые значения переменных r и s можно построить таблицу любого размера с теми же правилами
var
r : integer := 3; // количество строк
s : integer := 5; // количество цифр в строке
k, d : integer;

begin
for var i := 1 to r do begin
for var j := 1 to s do begin
d += 1;
if d > s then d := 1;
write(d, ' ');
end;
writeln;
k += 1;
if k >= s then k := 0;
d := k;
end;
end.
1. Ответ
  
  Ответ дан dDeVoChKa
  
  Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу..( Вы последняя надежда...(( https://znanija.com/task/31576828
2. Ответ
  
  Ответ дан ingr
  
  к сожалению на питоне не смогу, только если паскаль
3. Ответ
  
  Ответ дан MrMiner1
  
  Могу писать на паскале/плюсах/яве и совсем немного на си. К питону не подходил еще.
4. Ответ
  
  Ответ дан dDeVoChKa
  
  В это вся штука...Все именно так говорят) Я очень уважаю Вас, это очень круто знать столько языков. Но блин....Зачем в шк. программу добавлять то, что многие опытные программисты не знают....Хочется плакать((((

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Вывести на экран следующую таблицу (Pascal): 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2

Информация

Вывести на экран следующую таблицу (Pascal):
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2