Предмет: Информатика, автор: Ruslanus

Задача в ПАСКАЛЕ. Дан массив из 13 элементов заполнить этот массив случайными числами вывести на экран элемент если он равен квадрату его порядкового номера

Ответы

Автор ответа: vimmortal2
1

Программа:

Pascal:

var arr: array[1..13] of integer;

begin

 for var i := 1 to 13 do begin

   arr[i] := random(10);

   if arr[i] = sqr(i) then writeln(arr[i], ' ');

 end;

end.

Интересные вопросы
Предмет: Қазақ тiлi, автор: janna9992
Аналарды ардақтау, жан-жақты қамқорлық жасау - парызымыз. Ана үшін бала бауыр ет , бақыт десек, оны жеткізу , өсіру оңай емес. Баланың қуанышын да, азап пен қасіретін де тартатын ана. Оның бәріне көніп, төзімділік жасайтын да ана. Дүниеде анадан артық, анадан ардақты еш нәрсе жоқ. Жер басып жүрген адам баласын жаратушы да, оның ұрпағын жалғастырушы да-құдіретті Ана. "Ана" сөзі әрқашан да табынып өтетін тәңіріңдеі естілетіні де содан. "Ананды Меккеге үш рет арқалап апарсаң да, ақ сүтін ақтай алмайсың" деген даналық сөз дәл айтылған. Анаға қандай жылы лебіз білдірсек те жарасымда, қандай қамқорлық жасасақ та қарызымызды қайтарудың ширегіне тұрмайды. Сондықтан да іргелі елдігін тереңнен ойлаған, ұрпақ болашағын жан дүниесімен толғаған қай халық болсын, ең алдымен, абзал Анаға тәу етіп, бар жақсылық-игілігін соған арнамақ