Program chkr5; const N=10; var a:array [1..N] of integer; chkr,i:integer; flag:boolean; //Создаем массив из 10 (N) элементов begin randomize; flag:=false; //Присваиваем переменной flag отрицательное значение, эта переменная потом нам проверить есть ли в массиве числа кратные 5 for i:=1 to N do begin a[i]:=random (21)-10; write (a[i], ' '); //Заполняем массив числами на диапозоне [-10;10] и выводим его if a[i] mod 5=0 then begin chkr:=chkr+1; flag:=true; end; //Каждый раз проверяем: Если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1) end; writeln; if flag=true then write ('Чисел, кратных 5: ', chkr) else write ('Чисел, кратных 5 нет'); //Выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет end.
Увы, украинского не знаю, но надеюсь, что понятно. 1. Папка не существует на жёстком диске, как хранилище данных, папка - лишь запись в Master File Table (главной таблице файлов). 2. Тип файла определяет, какого вида информация в нём может содержаться, а расширение - часть имени файла, указывающая на, но не определяющая его тип. Иными словами, можно сменить расширение файла, чтобы скрыть его "природу", но тип файла от этого не изменится и все программы открывать файлы этого типа, по-прежнему будут открыть этот файл. 3. В Windows используются буквенные обозначения - A и B ранее были зарезервированы для дисководов гибких дисков, а начиная с Windows Vista или 7 под эти буквы можно вручную назначить что угодно. C обычно отводится для системного диска, остальные жёсткие диски автоматически получают буквы, начиная с D. В Linux всё иначе, диски и дисководы подключаются в "точки монтирования" в зависимости от настроек пользователя - например, дисковод CD\DVD-дисков можно найти в /mnt/cdrom, а системный диск монтируется в корень /.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
