var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
Формула для 100 грамм =D3*0,1 и потом просто растяни и все копируется, надеюсь это умеешь. Для 500 г =D3*0,5 ,для 1,кг =D3*1,5 для 2кг =D3*2
Если сумма всех ячеек то =СУММ(Диапазон ячеек) также и с итого =ИТОГО(диапазон ячеек)
program raf105;
var i,pro: integer;
begin
pro:= 1;
for i:=1 to 9 do
if (i mod 3)=0
then pro:= pro * i;
writeln(pro);
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Мне кажется слон
потому что собака легче и тяжелее а слон и не тяжелее и не легче