ЗАДАЧА №1
var
x, y: Real;
begin
Read (x);
if x > 10 then
y := Pi - 2 * x
else
y := 1 - x;
Write (y)
end.
ЗАДАЧА №2
var
a, b: Real;
begin
Read (a, b);
Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))
end.
ЗАДАЧА №3
var
a, c: Word;
begin
Read (a);
c := 0;
if a div 100 < 5 then
Inc (c);
if (a div 10) mod 10 < 5 then
Inc (c);
if a mod 10 < 5 then
Inc (c);
if c > 0 then
Write ('содержит цифры меньше 5')
else
Write ('не содержит цифры меньше 5')
end.
Видеофайлы, могут быть: avi, wmf, 3gp, mp4, mpg2.
Фотографии и рисунки, определяются с таких расширений: jpg, bmp, gif, tiff, png.
Тексты и документы: txt, doc, rtf, docx.
Файлы, где записаны данные для расчётов в виде электронных таблиц имеют расширение - xls, xlsx, xlsm, ods.
Для музыки характерно расширение: mp3, wma.
Программы запускают файлы, имеющие расширение exe, cmd, bat, их ещё, называют исполнительными.
А вот если вам друг передал, к примеру, целый набор файлов виде архива, то такой файл будет иметь разрешение rar, zip, tg.
