Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
Ну,короче,если обычный, 12-см диск, то CD вмещает в себя 700 МБ информации. Есть,
правда, и диски с увеличенным объемом (т. н. "CD-R90"), но их
использование не особо рекомендуется, потому что "лишние" 100 МБ пишутся
в служебные области. Если же взять DVD диск, то его "стандартная"
емкость - 4.7 ГБ (десятичных, если в двоичных, то 4.38 ГБ) . Есть и
двухслойные диски (внешне неотличимы от обычных, только цена выше) . У
них емкость 8.4 ГБ. Где-то существуют и двухсторонние DVD диски.
Если взять маленький, 8-см диск, то у CD его емкость 210 МБ, а у DVD -1.4 ГБ.В wikipedii есть по-моему подробное объяснения(поэтому предлагаю тебе там немножко "погулять").
У Blue-ray: 25 Гб (однослойный) 50 Гб (двухслойный) 100 ГБ (3-слойные диски) и 128 ГБ (4-слойные диски).
Флешки разные,от 4гб до 4 терабайт(максималка)
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
<u>Пример</u>
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
<u>Замечание:</u> вводить только натуральные числа!
var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.