<span>Uses crt;
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
begin
if ((a=b) and (b<>c)) or ((a=c) and (c<>b)) or ((b=c) and (c<>a)) then writeln('Triangle is isosceles');
if (a=b) and (b=c) and (a=c) then writeln('Triangle is equilateral');
if (a<>b) and (a<>c) and (b<>c) then writeln ('Triangle is scalene');
end
else writeln('Triangle is invalid');
end.</span>
1) Неправильное задание кажется, получается не целое выражение
1369875 (Бит) =
(Гб)
2) 5 (Гб) = 5*1024*1024*1024= 5 368 709 120 (Байт)
3) Переводим объём диска в Кб
700 (Мб) = 716 800 (Кб)
файлов поместится на диске размером 12457 (Кб)
Для групповых операций с файлами
используются
маски имен файлов. Маска представляет собой
последовательность букв, цифр и прочих допустимых в именах файлов символов, в
которых также могут встречаться следующие символы: символ «?» (вопросительный
знак) означает ровно один произвольный символ; символ «*» (звездочка) означает любую последовательность символов
произвольной длины, в том числе «*» может задавать и пустую последовательность.
Определите,
какое из указанных имен файлов удовлетворяет маске: ?el*.t*xt.
A) spell.txt
B) pencil.text
C) el.txt
<span>D) welcome.text</span>
Program q;
uses crt;
var a : integer;
begin
for a:=1 to 5 do
begin
write('Имя ');
end;
end.
Переменными могут быть - числа, буквы, строки, текст, цифра
