Ваша задача — написать программу, которая переводит число во время в читабельном виде. Пользователь должен ввести число больше 0 и меньше 8639999.
Число необходимо перевести в день, часы, минуты и секунды.
Ну и дополнительной задачей является — забота о выводе.
Слово "день" подбирается на основе кол-ва дней, а часы, минуты и секунды должны заполняться
нулями при одноцифровых значениях.
Пример:
0 -> 0 дней, 00:00:00
224930 -> 2 дня, 14:28:50
466289 -> 5 дней, 09:31:29
8639999 -> 99 дней, 23:59:59
22493 -> 0 дней, 6:14:53
7948799 -> 91 день, 23:59:59
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4
1. Поименованная информация, хранящаяся в долговременной памяти компьютера:
1) файл
2. Расширение файла указывает:
2) на тип данных, хранящихся в нем
З. Определите тип файла выход.ррt.
4) презентация
4. Какое расширение имеют текстовые файлы?
2) rtf, doc, docx, txt
5. Заполните пропуск в предложении
Полное имя файла включает в себя ... и имя файла.
ответ: путь
6. Установите соответствие.
Расширение Тип файла
1) .wav В) звуковой
2) .bmp Б) графический
3) .zip А) архив
7. Файловая система — это:
3) структура для хранения файлов и каталогов
8. Объект, не являющийся элементом файловой системы:
3) корзина
9. Полное имя файла D:\8 класс\Иванов Иван\Контрольная pa6oтa\контрошa.doc. В какой папке хранится файл контрошa.doc?
3) Контрольная работа
10. В каталоге хранился файл Отметки.txt. После создания в этом каталоге подкаталога и перемещения в созданный подкаталог файла Oтметки.txt полное имя файла стало A:\SCHOOL\USER\TXT\MARCH\Oтметки.txt. Полное имя каталога, в котором хранился файл до перемещения:
2) A:\SCHOOL\USER\TXT
11. Что представляет собой каталог диска в одноуровневой файловой системе?
ответ:линейная последовательность
12. Что такое корневой каталог?
ответ:начальный каталог в структуре каталогов устройства внешней памяти, в котором могут храниться файлы и другие подкаталоги.
Вариант 2
1. Файл — это:
1) поименованная группа данных в долговременной памяти
2. Сколько символов может быть в расширении файла?
4) до 256
З. Определите тип файла выход.jpg.
2) графический
4. Видеофайлы имеют расширение:
4) avi, wmv, mpeg
5. Заполните пропуск в предложении.
Полное имя файла включает в себя путь и ... файла.
ответ: имя
6.Установите соответствие
Расширение Тип файла
l).rtf А) текстовый
2) .bmp В) графический
3) .mp3 Б) звуковой
7. Функциональная часть ОС, обеспечивающая выполнение операций над файлами:
2) файловая система
8. Объект, не являющийся элементом файловой системы:
4) пуск
9. Полное имя файла С:\8 класс\Петров Петр\Самостоятельная работа\самраб.dос. В какой папке хранится файл самраб.dос?
3) Самостоятельная работа
10. В каталоге хранился файл Kaчecтвo.txt. После создания в этом каталоге подкаталога и перемещения в созданный подкаталог файла Kaчecтво.txt полное имя файла стало A:\SCHOOL\ADMIN\DOC\YEAR\Kaчecтво.txt. Полное имя каталога, в котором хранился файл до перемещения:
2) A:\SCHOOL\ADMIN\DOC
11. Что представляет собой каталог диска в многоуровневой файловой системе?
ответ: дерево
12. Задан путь к файлу C:\Text\Primer\Proba.doc.
Назовите имя каталога, в котором находится этот файл.
ответ: Primer