Формула для 100 грамм =D3*0,1 и потом просто растяни и все копируется, надеюсь это умеешь. Для 500 г =D3*0,5 ,для 1,кг =D3*1,5 для 2кг =D3*2
Если сумма всех ячеек то =СУММ(Диапазон ячеек) также и с итого =ИТОГО(диапазон ячеек)
Асқар уақытын босқа өткізбей домбыра үйірмесіне барады.
(Аскар едет в домбровый кружок, не пропуская время.)
Домбыраны шерткенде үні таза болу үшін ағашты суға әдейілеп қайнатады.
(Для того, чтобы при игре на домбре выходил чистый звук, дерево специально кипитят в воде.)
Оқушылар сахналық қойылымға үлгеріп келу үшін тез-тез жүгіріп келді.
(Учащиеся быстро прибежали, чтобы успеть на репетицию сценки.)
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
1. Щелкаем по надписи правой кнопкой мыши
2. Выбираем пункт "Формат надписи..."
3. Вкладка "Цвета и линии"
4. Выбираем цвет линии "Нет цвета"
10бит 20бит 2байта 1010байтов 1Кбайт