Где? на каком сайте? какая почта?
Прибавь к этим словам по 2 буквы и получи новые слова из 5 букв: --гор,--тон,--гон,--гар,--сар,--унь,--дио,--пех,--лад,--бор,--к
partia69
Бугор, бетон, загон, загар, сахар, окунь, радио, успех,уклад, забор, закон, бекон, фасон, букет, зарок, пирог, затор, табак, кабак, рыбак
Номера минимума и максимума не получается сделать паскаль выделывается чо то
var a: array[1..5] of integer; i,min,max,summa,nmin,nmax:integer;begin
for i:= 1 to 5 do readln(a[i]);
min:=a[1];for i:= 2 to 5 dobeginif a[i]<a[1] then begin min:=a[i];end;
end;
max:=a[1];for i:= 2 to 5 dobeginif a[i]>a[1] then max:=a[i];end;summa:=min+max;
writeln('min=',min);writeln('min+max=',summa);writeln('nomer min=',nmin);writeln('nomer mmax=',nmax);
end.<span>
</span>
1. Добавлено 5 бит, 248₁₀=1111 1000₂
2. Судя по маске получим 32 подсети,
3. Количество битов узлов подсети - 3
4. В каждой подсети по 6 узлов + адрес подсети + широковещательный адрес
5. Сетевой адрес этой подсети 192.135.250.176
6. Адрес IPv4 первого узла в этой подсети 192.135.250.177
7. Адрес IPv4 последнего узла в этой подсети 192.135.250.182
8. Широковещательный адрес IPv4 в этой подсети 192.135.250.183
// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.