Все категории

4 года назад

Пожалуйста, переведите с Pascal на Pythoni:=k-1;while i>=1 do begin a[i]:=a[i+1]-1; a[n-i+1]:=a[i]; dec(i); end;

Знания

Информатика

1 ответ:

tdnata4 года назад

0 0

a = []

k = int(input())

n = k * 2 - 1

a.append(1)

for i in range(1, k):

a.append(a[i - 1] + 1)

for i in range(k, n):

a.append(a[i - 1] - 1)

print(" ".join(map(str, a)))

Читайте также

1. Программу реализовать в двух вариантах (с использованием цикла while и until) 2. Создать форму, которая бы содержала текстовы

namcheg [2]

Этап подготовки текста на компьютере.

0 0

4 года назад

помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования эффективный алгор

Константин 13 [7]

Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>

0 0

4 года назад

Сделайте 4 задание в ход работы , в программе Фри Паскаль напишите программу

Денис Корин

program n4;

var t:integer;

begin

writeln('Введите время(в часах)');

readln(t);

case t of

22,23,24,0,1,2,3,4,5,6:writeln('Доброй ночи!');

7,8,9:writeln('Доброе утро!');

10,11,12,13,14,15,16:writeln('Добрый день!');

17,18,19,20,21:writeln('Добрый вечер!');

end;

end.

0 0

4 года назад

Данные каких типов могут обрабатываться в электронных таблицах?

11nastya

график дежурств, таблица по физике, информатике

0 0

4 года назад

Прочитать ещё 2 ответа

Действия речного трамвая что он может делать

BlackFire [36]

Выполнять экскурсии по различным городам на воде

0 0

4 года назад

Прочитать ещё 2 ответа

Пожалуйста, переведите с Pascal на Python​i:=k-1;while i>=1 do begin a[i]:=a[i+1]-1; a[n-i+1]:=a[i]; dec(i); end;

Пожалуйста, переведите с Pascal на Pythoni:=k-1;while i>=1 do begin a[i]:=a[i+1]-1; a[n-i+1]:=a[i]; dec(i); end;