Скачать с ютуб видео Remplissage d'un tableau par des éléments distincts (Seance 5)

Не удается загрузить Youtube-плеер. Проверьте блокировку Youtube в вашей сети.
Повторяем попытку...

Скачать видео с ютуб по ссылке или смотреть без блокировок на сайте: Remplissage d'un tableau par des éléments distincts (Seance 5) в качестве 4k

У нас вы можете посмотреть бесплатно Remplissage d'un tableau par des éléments distincts (Seance 5) или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:

Информация по загрузке:

Скачать mp3 с ютуба отдельным файлом. Бесплатный рингтон Remplissage d'un tableau par des éléments distincts (Seance 5) в формате MP3:

Если кнопки скачивания не загрузились НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу страницы.
Спасибо за использование сервиса ClipSaver.ru

Remplissage d'un tableau par des éléments distincts (Seance 5)

Program seance5; uses wincrt; type tab=array[1..20] of integer; var n:integer; t:tab; procedure saisie(var n:integer); begin repeat write('Donner le nombre de cases'); readln(n); until n in [5..20]; end; function existe(t:tab;n:integer;x:integer):boolean; var trouve:boolean; i:integer; begin i:=0; repeat i:=i+1; if t[i]=x then trouve:=true else trouve:=false; until (trouve=true) or (i=n); existe:=trouve; end; procedure remplir(var t:tab; n:integer); var i:integer; begin write('T[1]='); readln(t[1]); for i:=2 to n do repeat write('T[',i,']='); readln(t[i]); until existe(t,i-1,t[i])=false; end; {*** Programme principal ***} begin saisie(n); remplir(t,n); end.

Comments