Считаешь все символы (пробелы, тире и знаки препинания)
1)69*16=1120(количество символов умножаем на биты)
2)1120/8=140(получившееся число делам на 8 для того, что бы перевести в байты)
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
Программа написана на языке Pascal ABC
Program pr;
uses crt;
Var a,b,c:integer;
H,F,x,x1,x2:real;
Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do
Begin
if (c<0) and (b<>0) then
Begin
F:=(a*x*x)+(b*b*x);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
if (c>0) and (b=0) then
Begin
F:=(x+a)/(x+c);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end;
end;
readln;
end.
1.Взять ведро налить воды.
2.Вылить воду на огонь.
3.не Пугать животных